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Introducción 


El ZX-Interface.1 y los microdrives multiplican la potencia del or- 
denador Spectrum. El Interface no sólo actúa como controlador de los 
microdrives, sino que facilita la comunicación con periféricos tales 
como impresoras, trazadores, etc., y es capaz de comunicarse con 
otros Spectrums. 

Este libro no pretende ser un manual de estos aparatos y tampo- 
co se supone que el lector tenga más conocimientos de informática 
que los resumidos en el manual del Spectrum. Aspira a mostrar al 
usuario, con la ayuda de ejemplos adecuados, cómo obtener los mejo- 
res resultados de su máquina y cómo se puede usar para el proceso 
de datos, control de periféricos y de red. 

El incremento de velocidad y capacidad, obtenido con el uso de 
microdrives, permite un manejo de archivos avanzado sin necesidad 
de utilizar el complejo código máquina. Debido a ello, todos los progra- 
mas contenidos en este libro están escritos únicamente en BASIC. 

Además de ser instructivo, el libro contiene varios programas muy 
útiles en el hogar y en el trabajo. Estos programas están totalmente 
documentados y esperamos que el lector pueda aprender de los pro- 
cedimientos de programación usados. 
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1. Los Microdrives 


En este capítulo se consideran las extensiones al BASIC debidas 
al uso del ZX-Interface.1 junto con uno o más microdrives. 

La figura 1 muestra las nuevas instrucciones que se pueden usar 
con los microdrives. 


FORMAT "mm" jin;j "NOMBRE" 
CAT nm 
ERASE "mn; "NOMBRE" 


SAVE *"m",Nn; "NOMBRE" 
LOAD "mn; "NOMBRE" 
VERIFY *"m";Nn; "NOMBRE" 
MERGE *x'"m",n; "NOMBRE" 


Fig. 1 


La notación usada en estas instrucciones tiene el siguiente signifi- 
cado: 


“me En mayúscula o minúscula, la letra m significa comunica- 
ción con un microdrive. 
n Es un número (entre 1 y 8) que indica qué drive está 


siendo usado. 
“NOMBRE” Una palabra que indica el nombre del programa, archivo 
de datos o cartucho. 


Instrucciones 
Vamos a observar cada una de ellas con más detalle, consideran- 
do su método de entrada, uso y algunas variciaciones que pueden 


usarse. 
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FORMAT “m”;n;“NOMBRE” 


Para poder usar un cartucho de microdrive debe ser formateado 
previamente. Esta es una operación que dura aproximadamente 30 
segundos y durante la cual el ordenador comprueba el cartucho y le 
asigna un nombre de longitud inferior a diez caracteres. 

La tarea de formatear un cartucho puede llevarse a cabo desde 
un programa, tal y como se muestra en el siguiente ejemplo y como se 
puede observar en el programa AGENDA del capítulo 5. 


3000>REM RUTINA DE FORMATEADO 
3010 INPUT "NUMERO DE MICRODRIVE 
e "sn 
2020 IF n>38 THEN G0. TO 9010 
S038 INPUT “NOMBRE DEL CARTUCHO= 
3040 IF LEN (A$)>10 THEN GO TO 9 
2050 PRINT TAB 12; "FORMATEANDO" 
2050 FORMAT "m":n:AS 
$070 STOP 

Nota 


Obsérvese que es posible utilizar variables dentro de una instruc- 
ción FORMAT. Esto permite asignar valores mediante instrucciones 
del tipo LET, READ o INPUT. 


CATn 
La instrucción CAT o CATALOG está destinada a examinar el 


contenido de un cartucho de microdrive mediante la pantalla. La forma 
de presentación de los datos se muestra en la figura 2. 


(Nombre del cartucho) 


(Nombres de los * 
gramas en arden a- 
bet 


120) 


(Numero de R libres) 


Fig. 2 
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ERASE “m”;¡n;“NOMBRE” 


Esta instrucción se usa para borrar un programa o un archivo de 
datos de un cartucho de microdrive. Spectrum no permite reescribir un 
programa con el mismo nombre de uno grabado (tal como podría ha- 
cerse en un cassette). Por lo tanto, la versión original debe borrarse 
antes de proceder a una nueva grabación. 

Si se dispone a un programa TEST grabado en un cartucho y se 
quiere reemplazarlo por una versión puesta al día con el mismo nom- 
bre, será necesario ejecutar las siguientes tres instrucciones: 


ERASE midi 0BRUEBA! 
SAVE ¿"m"1; "PRUEBA" 
VERIFY <"m";1; "PRUEBA 


Nota 

Como la mayoría de las instrucciones del Spectrum, ERASE 
puede usarse dentro de un programa BASIC y se pueden utilizar va- 
riables para representar el número del microdrive y el nombre del pro- 
grama. Esto resulta de gran importancia, tal como se demuestra en 
muchos de los programas de este libro. 


SAVE *“m”;n;“NOMBRE” 


La instrucción SAVE * opera de forma similar a la SAVE existente 
en el Spectrum no expandido, excepto que el volcado del programa en 
el medio de almacenaje es mucho más rápido. 

La sintaxis de la instrucción ha sido ligeramente incrementada 
con la inclusión del especificador de canal (m) y el número de micro- 
drive (n), pero el resto de las reglas sintácticas son iguales. Con esta 
instrucción es posible salvar programas, matrices, código máquina y 
pantallas usando el formato: 


Programa SAVE *“m”;n; “NOMBRE” 

Matriz SAVE *“m”;n;“NOMBRE”DATA AS( ) 
Código máquina SAVE **“m”;n;*NOMBRE”CODE A,B 
Pantalla SAVE *“m”;n;“NOMBRE”SCREENS$ 
Nota 


Al igual que la instrucción SAVE, SAVE * puede usarse también 
conjuntamente con LINE para ordenar la ejecución del programa a 
partir de una línea determinada al cargarlo. Por ejemplo: 


SAVE *“m”;n;“NOMBRE”LINE 100 
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El programa será ejecutado inmediatamente de ser cargado y 
empezará en la línea 100. 


Autoejecución 


Cuando use el ZX-Interface.1 y un microdrive, existe una posibili- 
dad de que un programa sea ejecutado automáticamente sin necesi- 
dad de entrar la larga instrucción LOAD * correspondiente. Esto se 
consigue terminando el programa con la línea: 


9999 SAVE *“m”;1;“run”LINE 16) 
y salvándolo mediante: 
GOTO 9999 


Después de transferir el programa al cartucho, se puede cargar y 
ejecutar automáticamente entrando NEW seguido de RUN. Este mé- 
todo sólo funciona en el microdrive 1 y el programa debe llamarse 
“run” (no en mayúsculas). 


VERIFY *“m”;¡n;“NOMBRE” 


La instrucción de microdrive VERIFY * es muy similar a VERIFY, 
pero incluye la información adicional requerida para la comunicación 
con los microdrives. 

Como en el caso en que utiliza cassette, puede comprobar pro- 
gramas, matrices y código máquina, y además con VERIFY * puede 
verificar pantallas. La sintaxis para estas operaciones es como sigue: 


VERIFY **m”;n;*NOMBRE” 

VERIFY *“m”:;n;“NOMBRE”DATA AS( ) 
VERIFY *“m”;n;“NOMBRE”CODE 
VERIFY *“m”;n;“NOMBRE”SCREENS$ 


LOAD *“m”;n;“NOMBRE” 


Si se tiene en cuenta el suplemento de sintaxis que se necesita 
para operar en el microdrive, no hay diferencias entre LOAD y LOAD *. 


MERGE *“m”;n;“NOMBRE” 


La instrucción MERGE es muy parecida a LOAD, con la salvedad 
de que no se pierde el programa que actualmente está en memoria. 
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Esto resulta muy útil cuando se trata de extender un programa, aun- 
que sea necesario hacerlo durante su ejecución. 


A_RUTINA 
ARGAR UNA NU 


0" THEN RETURN 
2 INPUT "NOMBRE DE LA RUTINA" 


$540 INPUT "NUMERO DE MICRODRIVE 
550 MERGE EM" ¡A/AS 


Y 
> 


01101) 
G6 65 
H 
m3 
H 
Dz 
1 
LS 
z 


TO TTA 
po Z 

4 0 HTA Es 
D 


Ln u”- 


Nota 
La instrucción MERGE no funcionará con un programa previa- 
mente salvado usando la instrucción SAVE * .... LINE. 


1% 


2. Canales y corrientes 


A primera vista, el concepto de canal y de corriente es bastante 
complejo. Conviene comprender primero la estructura de un sistema 
de ordenador. Partiendo de este conocimiento la necesidad de tal ter- 
minología resulta obvia. 


UMICAC CENTRAL CE PROCESO 


FERIFER 
DE ENT 
(TECLA 


ODn 
ODIA 
*DO 

DA 


La figura 3 representa un típico sistema de ordenador con la uni- 
dad central de proceso comunicada con varios periféricos a través de 
una unidad de control. En el Spectrum, como en muchos grandes or- 
denadores, los periféricos con los cuales la unidad central de proceso 
(CPU) comunica se llaman canales y las rutas por las que transcurre 
la comunicación, corrientes. 


Canales 
La tabla 1 presenta los canales accesibles al usuario, indicando 
su naturaleza (entrada/salida) y el especificador utilizado en las ins- 


trucciones. 
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Obsérvese que el interface RS232 tiene dos canales distintos (b 
para información codificada en binario y t para texto). Estos canales 
serán considerados con mayor profundidad posteriormente (véase el 
cap. 9). 


Tabla 1 
Canal Tipo Espec. 
Pantalla Salida s 
Teclado Entrada K 
Impresoraxz Salida | 
Microdrive Entr./sal. M 
Red Entr./3al. n 
RS232 Entr./Sal. bo t 


Corrientes 


Tal y como se han descrito, las rutas mediante las que la CPU se 
comunica con los periféricos (canales) se llaman corrientes. El Spec- 
trum dispone de 16 corrientes numeradas de ( a 15; las cuatro prime- 
ras están permanentemente unidas a los canales más utilizados. 
Estas importantes conexiones se muestran en la tabla 2 y las tres 
primeras no deben ser «abiertas» O «cerradas». 


Tabla 2 
Corriente Canal 
Ro 
Inf.pantallartecilado 
R1 
n2 Parte sup. pantalla 
43 Impresora ZX 
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Instrucciones 


Spectrum dispone de tres instrucciones especiales para manejar 
los canales y las corrientes. Son OPEN +, CLOSE 4 y MOVE. A conti- 
nuación se describe su formato y en los siguientes capítulos podrá 
estudiarse su aplicación práctica. 


OPEN + 


Esta instrucción se usa para conectar cierto canal a la CPU me- 
diante la corriente escogida. Una vez abierta, la comunicación se 
mantendrá hasta encontrar una instrucción CLOSE 4. A continuación 
se presentan algunos ejemplos de uso de la instrucción OPEN FX: 


1 ...OPEN 44;*m”;1; “TEST” 


2 ...OPEN +44;“t” 

3 ...OPEN 445;“b” 
4 ...OPEN 46;“n”;2 
Comentarios 


Línea 1 Abre una corriente hacia el microdrive 1, a través de la 
cual se enviará el archivo de datos TEST. 

Línea 2 Abre una corriente hacia el interface RS323 para la trans- 
misión de texto. 

Línea 3 Abre una corriente hacia el interface RS323 para la trans- 
misión de códigos binarios. 

Línea 4 Abre una corriente hacia la estación 2 del sistema de red. 


CLOSE + 


Después de abrir una corriente y cuando se ha completado el 
trabajo a realizar con cierto periférico, la corriente debe ser cerrada. 


MOVE 


Esta es una instrucción muy útil porque permite transferir informa- 
ción directamente de un canal o corriente a otro. Es decir, la instruc- 
ción MOVE +1 TO 43 transferirá directamente los datos entrados por 
el teclado a la impresora. Mediante un uso cuidadoso de la instrucción 
MOVE se pueden abreviar procesos que, de otra forma, requerirían 
varias operaciones. 
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Ejemplo 1 
MOVE *m”;1;“TEST” TO +2 


Transfiere el archivo de datos TEST desde el microdrive 1 a la 
pantalla. Esto es muy útil para comprovar si cierto archivo de datos se 
ha corrompido. 

Ejemplo 2 
MOVE *m”;1;“TEST” TO 43 


Vuelca el archivo de datos TEST sobre la impresora ZX. 


Ejemplo 3 
MOVE “m”;1;“TEST” TO “m”;2;“TEST” 


Copia en el microdrive 2 el archivo TEST, que originalmente está 
situado en el microdrive 1. 


21 


3. Archivos y proceso de datos 


Una de las mayores ventajas de un ordenador es su habilidad 
para almacenar grandes cantidades de información, que posterior- 
mente puede buscar, procesar y mostrar a gran velocidad. Al método 
de manejar información se le denomina proceso de datos (DP). En 
este capítulo se demuestra cómo puede hacerse un trabajo bastante 
sofisticado usando un Spectrum estándar con un ZX-Interface.1 y un 
único microdrive. 


Archivos 


En proceso de datos, la cantidad de información que se considera 
a menudo es muy grande. Por lo tanto, no resulta práctico almacenar- 
la en instrucciones DATA o en matrices dentro de un programa. Los 
datos conviene almacenarlos en un archivo que pueda ser manejado 
directamente por programa. 


Estructura de archivo 


Registro 1 Registro E 


Fig. 4 


La figura 4 muestra cómo un archivo se divide en una serie de 
registros y que éstos se dividen en cierto número de campos. Cada 
campo puede ser numérico, alfabético o alfanumérico, y puede conte- 
ner un elemento de datos (un nombre, un número, una fecha, etc.). 
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Cuando se maneja un archivo, es necesario recordar esta estruc- 
tura, atendiendo especialmente a: 


1) Número de campos por registros 

2) Tipo de cada campo 

3) Qué campo representa la llave 

4) Tipo de marcador de final de archivo usado 


Campo llave 

En general, al primer campo de cada registro se le llama campo 
llave. Se hace así para identificar un registro, separándolo de los 
demás de un archivo. En la mayoría de los casos el campo llave será 
un nombre, pero no es imprescindible que lo sea. En ciertos casos se 
utiliza un código para proteger la integridad de los datos. 


Final de archivo (EOF) 

Cuando se ordena a un ordenador la lectura de la información 
contenida en un archivo, no sabrá el número de registros que contie- 
ne. Si se intenta leerlo usando un bucle FOR...NEXT, fácilmente 
puede llegarse a la situación de que el ordenador intente leer registros 
que no contienen más datos. Para evitar este problema, suele termi- 
narse un archivo con un marcador de final de archivo (EOF). Cuando 
ordenador lo encuentra, sabe que no hay más datos y, por lo tanto, 
que debe cesar la lectura y cerrar la corriente. 


Instrucciones 


El sistema Spectrum extendido dispone de cuatro instrucciones 
que permiten manejar archivos y que serán suficientemente utilizadas 
en los próximos capítulos. Estas instrucciones se muestran en la figu- 
ra 5. 


OFEN 8N;'“m";n; "NOMBRE" 
CLOSE EN 


PRINT EN, 
INPUT EN, 


Fig. 5 
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OPEN %+N;“m”;n;“NOMBRE” 


Abrirá la corriente N (dentro del rango 4-15) desde la CPU al mi- 
crodrive n. A través de esta corriente se enviará un archivo llamado 
NOMBRE. Todos los valores N,n y NOMBRE pueden ser reemplaza- 
dos por las variables deseadas, siempre que, previamente, hayan sido 
definidas. 


CLOSE %N 


Después de que se haya transmitido un archivo de datos a través 
de una corriente, ésta debe cerrarse o desconectarse usando la ins- 
trucción CLOSE +. 


PRINT N; 


La instrucción PRINT + se usa para escribir un archivo en el mi- 
crodrive. Su efecto es el envío de un elemento de datos o un campo, 
que son inmediatamente almacenados en el cartucho. 


Nota 
De acuerdo con el manual, es posible disponer múltiples instruc- 
ciones PRINT % en una sola usando el apóstrofo; por ejemplo: 


PRINT +4;A5'BS$ 


No obstante, en los programas escritos en este libro no se hace 
uso de tales líneas múltiples y todos los listados contienen las instruc- 
ciones PRINT + separadas. Se ha escogido este sistema ya que cual- 
quier falta de sintaxis (olvido de un apóstrofo) puede provocar una 
importante corrupción en los archivos. 


INPUT +N; 


Esta instrucción es la opuesta a PRINT 4, transfiriendo un ele- 
mento de datos desde un archivo a la memoria principal. También en 
este caso es posible el uso de instrucciones múltiples con puntos y 
comas como separadores. Como en el caso anterior, no se utiliza esta 
propiedad en los programas escritos en este libro. Esto causa cierta 
programación extra, pero evita multitud de graves problemas. 


24 


Tipos de programas DP 


Existen tres tipos de programas DP o programas de manejo de 
archivos: 


1) Solamente escritura 
2) Solamente lectura 
3) Lectura y escritura. 


Tal y como sus nombres indican, el primer tipo se usa para cons- 
truir un archivo original; el segundo para obtener datos de un archivo 
existente, y el tercero para leer, cambiar y reescribir datos en archivos 
existentes. 


Solamente escritura 


En este tipo de programas, el objetivo es crear en el cartucho de 
microdrive un archivo que no existe previamente. Para conseguirlo, 
primeramente deben recogerse los datos mediante instrucciones LET, 
READ o INPUT. Inmediatamente los datos deben examinarse y, por 
último, transferir a un archivo mediante una instrucción PRINT FX. 


Ejemplo 1 

El siguiente programa construye un archivo llamado TELEFONO, 
que contiene una serie de nombres de personas asociados a sus nú- 
meros de teléfono. Se utilizan dos matrices —A$( ) y B$( )— para con- 
tener la información en la memoria principal y un EOF para señalar el 
final del archivo. 


149 CL3 

20 DIM A$(59,12) 

54 DIM E$(S0,12) 

40 PRINT TAB (10); "NUMEROS DE 
TELEFUNO”" 

50 PRINT TRE (10); ===z==== == 

60 PRINT "NOMBRE", “NUMERO” 

70 PRINT "======",'"zzzzmzz' 

s0 LET L=1 

30 INPUT "NOMBRE=".,A$ 


(Tí) 
100 IF A$tI,1 TO 3S)="FIN" THEN 


50 
119 INPUT ¿NUMERO="¿B6(1) 
120 PRINT A$(ID.B4( 


150 PRINT : PRINT 
169 PRINT O 1, 


AE 
GO EL ARCHIVO" INVWERSE 


SCRIBIEND 
Pa] 
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170 OPEN 44, '"M";,1; "TELEFONO" 
150 FOR J=1 TO I-1 
1399 PRINT 4;A5(J) 
200 PRINT 84:B5(J) 
2109 NEXT y 
220 PRINT H4; "EOF" 
230 CLOSE $4 
240 STOP 
Comentarios 
Líneas 10-74 Imprime títulos e inicializa variables. 
Líneas 84-150 Entrada, mediante teclado, de una serie de nom- 
bres y números de teléfono. 
Línea 179 Abre la corriente +4 al canal m, a través de la 
cual se debe transferir un archivo llamado TELE- 
FONO. 
Líneas 184-214 Escribe todos los nombres y números en el ar- 
chivo. 
Línea 229 Envía el marcador EOF al archivo. 


Líneas 230-244 Cierra el archivo, termina el programa. 


Cuando este programa termina su ejecución, en el cartucho de 
microdrive existe un archivo llamado TELEFONO cuya estructura se 
indica en la figura 6. 


FW ln, al 
Registro 1 Registro 2 


Fig. 6 
Solamente lectura 


Una vez creado un archivo mediante un programa de tipo sola- 
mente escritura, tal como el mostrado en el ejemplo 1, llega el momen- 
to de hacer preguntas a este archivo para obtener de él un elemento o 
elementos de información. Si sólo se desea obtener y procesar los 
datos contenidos en el archivo, es suficiente un programa como el 
mostrado en el ejemplo 2. 


Ejemplo 2 
El siguiente programa lee el archivo telefónico creado en el ejem- 
plo 1 y da al usuario la posibilidad de: 


1) Imprimir una tabla de números 
2) Buscar un nombre y mostrar su número correspondiente. 
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19 CL5 

¿0 DIM A$4$(50,12) 

50 DIM 5$(50,12) 

40 PRINT TAB (10); "PROGRAMA TE 
LEFONO" 

su PRINT TAB (10); "uz=z==== == 


== === 

50 PRINT : PRINT 

70 PRINT INVERSE 1;'"CARGA DEL 
CHIVO" 

7S INVERSE Y 

SY OPEN 84;,"M",1," "TELEFONO" 
390 LET I=1: LET PRUEBA=O 

100 INPUT $4 ,AS$(1) 

1109 EE AS (Td TO 3)="E0F" THEN 


129 INPUT Joe 


|» 
170 PRINT TAB 10; "MENU PRINCIPA 
150 PRINT TAB 10;"zuzz=xz cozuezmeeza 


199 PRINT : PRINT : PRINT 
200 PRINT "1,... IMPRIMIR TABLA 
O PRAT. 


RINT : PRINT 
220 PRINT "2....BUSCAR E IMPRIM 


230 PRINT : PRINT 

240 PRINT "3....SALIR" 

250 INPUT "SELECCION: "; 

2560 IF A<1 OR A>3 THEN 60 TO 25 


270 GO TO (A*10040) 
19009 AS *TABLA* 


1914 CL 

1029 PRINT TAB 10; "NUMEROS DE TE 
LEFONO" 

1930 PRINT TAB 10, "2====== =2 == 
IIS” 

1049 PRINT 


1950 PRINT "NOMBRE", Pl a 


NT y 
1070 FOR J=1 TO 1-1 
1050 PRINT A$IJD),B$(J) 


XxT_ JU 
100 ENE "PULSE -ENTER- PARA $3 


O TO 160 
Eb Ei F*BUSCAR E IMPRIMIR +* 
2020 PRINT TAB 35; "BUSCAR E IMPRI 
2030 PRINT TAB 3; "====== =2 ===== 


2049 PRINT 
2050 INPUT "NOMBRE= ";¡N$ 
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2060 FOR J=1 TO I-1 

2070 IF ASIJ.1 TO LEN (N$))=NS T 
HEN 60 _sUB 3080 

2050 NEXT 

2090 1F PRUEBA<>0 THEN GO TO 212 
2100 PRINT : PRINT : PRINT 

2110 PRINT INVERSE 1;"ESTE REGIS 
TRO_NO EXISTE" 

2115 INVERSE 0 

2129 INPUT "PULSE -ENTER- PARA S 
EGUIR":Z$ 

3138 60 TO 150 

3000 REM *SALIRA+* 

3810 STOP 

3000 PRINT "NOMBRE= "¡A$iJ) 

5010 PRINT "NUMERO= ";B$(J) 

3020 LET PRUEBA=PRUEBR+1: PRINT 
2030 RETURN 


Comentarios 
Líneas 14-66 Imprime títulos e inicializa variables. 


Líneas 70-150 


Líneas 164-270 
Líneas 1004-1119 


Líneas 2040-2130 


cho del microdrive 1. 


ros contenidos en el archivo TELEFONO. 


Línea 3000 Salida. 


Lectura y escritura 


El tercero y más útil programa de manejo de archivos es el de 
lectura y escritura. Tal y como sugiere su título, el programa supone 
que el archivo ya existe. El archivo puede ser cargado en el ordena- 


dor, puede ser interrogado, cambiado y reescrito en el cartucho. 
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El número de funciones contenidas en este tipo de programas 
depende de su sofisticación, pero generalmente permiten al usuario: 


1) Cambiar un registro 
2) Borrar un registro 
3) Añadir un registro 
4) Interrogar un archivo 


Entrada del archivo TELEFONO desde el cartu- 


Menú principal que da al usuario tres opciones. 
El ordenador muestra todos los nombres y núme- 


El usuario entra un nombre mediante el teclado y 
el ordenador busca la información adecuada en el 
archivo de datos, imprimiéndola en la pantalla. 


Ejemplo 3 

El siguiente es un programa de manejo de archivos dedicado al 
archivo de datos TELEFONO creado en el ejemplo 1 e incluye todas 
las funciones mencionadas anteriormente. 


19 CLS _ 

20 DIM A$(50,12) 

30 DIM B6$(50,12) 

40 DIM D(20) 
aÑos PRINT TAB 3; "PROGRAMA TELEF 

s9 PRINT TAB 3, "rzxesz=zz=z=zz =====x 

7O PRIN : PRINT 

SQ PRINT INVUERSE 1;,'"CARGA DEL 
ARCHIVO" 

35S INVERSE Y 

390 OPEN 84, '"M";1; "TELEFONO" 
id LET Iz1: LET PRUEBA=0: LET 
CHs=s 

1109 INPUT N34;,AS$(1) 

120 IF A$(1,1 TO 3)="EOF" THEN 
SO TO 160 

130 INPUT 84;,B6(1) 

140 LET Iz=I+1 


1509 GO TO 110 
15609 CLOSE Ha 


179 CLS 

150 PRINT TAB 3, '"MENU PRINCIPAL 
¿190 PRINT TAB 8; "=== z=zszz=zu==s 
200 PRINT : PRINT 

210 PRINT "1l.... IMPRIMIR TABLA 
DE NUMEROS" 

220 PRINT 


230 PRINT "2....BUSCAR E IMPRIM 


fo 
Pp 
S 
UD 
Du 
HH 
pr 
= 


rE0* P "3... «ANADIR UN REGIS 
260 PRINT 
ÓN PRINT "4....BORRAR UN REGIS 
2809 PRINT 
290 PRINT "S....CAMBIAR UN REGI 
STRO" 
300 PRINT 
310 PRINT "6....SALIR" 
320 INPUT "SELECCION= "¡A 
ad IF A<1 OR A>6 TMEN GO TO 32 
349 60 TO (A*1000) 
1900 REM *TABLAR* 
10109 CLS 
ON PRINT TAB 6; "NUMEROS DE TEL 
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30 


1030 


ARRENT TAB 6; "szz=zuczzz == == 


PRINT 

PR INT "NOMBRE", "NUMERO" 
PRINT a A 'zezmezz" 
FOR Ja1 T 


O 
PRINT As BE) 


1958 
1890 NEXT y 
11009 INPUT "PULSE -ENTER- PARA $3 
EGUIR";Z 
1118 có To 170 
2000 REM *BUSCAR E IMPRIMIR»+ 
2010 CL 
kiko PRINT TAB 5, "BUSCAR E IMPRI 
2030 PRINT TAB 6," uuzzz=z = =23=x 
===" 
2040 PRINT 
2050 INPUT "NOMBRE=z ";N5 
2060 FOR J=1 TO I-1 
0790 IF SA TO LEN (N$))=NS T 
HEN GO SUB 93400 
2080 PR 
2090 NEXT Y 
als IF PRUEBA<>0 THEN GO TO 213 
2110 PRINT : PRINT : PRINT 
2120 PRINT INVERSE 1; "ESTE REGIS 
TRO NO EXISTE" 
2125 INVERSE Y 
2130 INPUT "PULSE -ENTER- PARA 5 
EGUIR",Z6 
2140 LET PRUEBA=0 
2150 GO TO 170 
3000 REM *ANADIR REGISTROS:+ 
3010 CLS 
PE PRINT TAB 10," ANADIR REGIST 
3050 PRINT TAB 10,;"===z=== z=zzme=uez 
3040 PRINT : PRINT : ,¿PRINT 
3050 INPUT “NOMBRE = ¿AS(I) 
35060 PRINT "NOMBRE= ";¡A$1I) 
3070 PRINT 
3030 INPUT "NUMERO= ";¡B54(I1) 
3090 PRINT "NUMERO= "¡BS$:1I) 
3100 LET I=I+1 
3110 LET CH=CH+1 
3120 INPUT "PULSE -ENTER- PARA S 
EGUIR"'; 
3130 G0 TO 170 
4090 REM ESORRAR REGISTRO" 
4010 CLS 
4020 PRINT TAB 10; "BORRAR REGIST 
4030 PRINT TAB 10; "zzmzcz ===zuz 
310409 PRINT 
4050 INPUT "NOMBRE= ";N5$ 
4060 LET L=1 


40709 FOR J=1 TO 

4990 IF A$(J,1 TO LEN (N$))=NS T 
N_ GO _sUB 9180 

4100 NEXT J 

4110 IF L=1 THEN GO TO 4210 

4120 INPUT “NUMERO DE REGISTRO A 
BORRAR= ":¿R 

4130 FOR K=D(R) TO I-1 

4140 LET A$(K)=AG(K+1) 

4150 LET BSiK)=B$(K+1) 

4160 NEXT K 

4170 LET I=I-1 

4150 PRINT : PRINT 

4190 PRINT INVERSE 1; "REGISTRO 5 

URRADO" 

4195 INUERSE 0 

4280 GO TO 4230 

4210 PRINT : PRINT 

4220 PRINT_INVERSE 1;"ESTE REGIS 

TRP_NO EXIST 

4225 INUERSE 0 

4230 INPUT "PULSE -ENTER- PARA Ss 

EGUIR" 

4240 GO TO 170 

5909 REM *+CAMBIAR REGISTRO+ 


CL 
35020 PRINT TAB 10, "CAMBIAR REGIS 
5030 PRINT TAB 10; "===2xe== ===== 


INT 
PUT "NOMBRE= ";N5B 


L-1 
TO LEN (N$))=NS T 


a 

O 

10 

Zz 

m 

XL 
PaACD 
PC 


ADHAJTJOOAA Nu 


N GO TO S150 
ERO DE REGISTRO A 


O NUMERO DE TELE 


qa 
OP 
Dr 
TO 
0 
HHAHH 
DZMN 
DU 

S 


1;"ESTE REGIS 


de 
HHOTUS 


ULSE -ENTER- PARA S 


170 
M *SALIR+ 

THEN STOP 

ERASE "M";1; "TELEFONO" 
OPEN 34: "M":1; "TELEFONO" 
FOR J=1 TO 1-1 

PRINT $4;A$(J) 

PRINT 24:B$(J) 

NEXT y 

PRINT 34; "EOF" 


HAGA ANIMADA 
SO06EDGBDBDO RN AR DReRrA 
O -JDONPODIrPO0C-JRO ad 
re todos 000 
HIG - 
MO": 
O AACMXIZZA DOCU 
Tx O 
8“ 
S 
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Q CLOSE 4 
Y STOP 

9000 PRINT "NOMBRE= "; 
3010 PRINT "NUMERO= ",) 
39020 LET PRUEBA=PRUEBA 
3030 RETURN 

9100 PRINT L;". a 
3119 LET a LET Lea 


+ DD 


2120 RETURN 


Comentarios 
Líneas 14-76 
Líneas 80-164 


Líneas 174-344 
Líneas 1400-1110 


Líneas 2004-2154 


Líneas 3400-3134 


Líneas 4000-4246 


Líneas 5400-5184 


Líneas 6440-6140 


Variables 


Imprime los títulos e inicializa las variables. 
Entra el archivo TELEFONO del cartucho del mi- 
crodrive 1. 

Menú principal que permite al usuario seis posibi- 
lidades. 

El ordenador muestra todos los nombres y núme- 
ros contenidos en el archivo TELEFONO. 

El usuario entra un número y el ordenador busca 
en el archivo de datos la información apropiada, 
escribiéndola en la pantalla. 

El usuario puede entrar un nuevo registro (nom- 
bre y número) y el ordenador lo inserta al final de 
la matriz. 

El usuario puede borrar un registro completo. 
Esto se consigue localizando el registro a borrar y 
moviendo todos los siguientes de forma que se 
escribe encima del registro a borrar. 

El usuario puede variar un registro; es decir, el 
campo del número de teléfono se puede alterar 
sin afectar el nombre. 

Si se ha efectuado alguna variación (CH <> ), 
el archivo TELEFONO se borra del cartucho y se 
procede a la grabación de una versión puesta al 
día. 


La tabla 3 mostrada a continuación es un listado de las principa- 
les variables usadas en los ejemplos 1, 2 y 3. Le puede resultar útil 
para comprender mejor el funcionamiento del programa. 
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Tabla 3 


ya 
o 
= 
o 
—, 
fo 


Uso 


D TFT OTOHDD 
- DI min 


Nombres 
Numeros 
Numero de 
Nunero de 
Deteccion 
Registros 
seciones 
Numero de 
seciones 
Numero de 
cambiar 


— OL e CLIO O ds 
DOOM 
0 0 mn t0 
min a Ts dy 
Y by Y Us 350 — 
rr -2 +00 + 
SGAcarn- 
O --O =- pb In -=- O 
a a O 
o 73 
O "om 
E | tn 
ro 
pa 


Conclusión 


Las técnicas descritas en este capítulo e introducidas en los ejem- 
plos 1, 2 y 3 aparecen usadas en todos los programas de los próximos 


dos capítulos. 


2 - HURLEY 
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4. El libro de direcciones 


Este capítulo contiene dos programas (DIRECC. 1 y DIRECC. 2) 
que pueden ser introducidos en el ordenador y después grabados en 
un cartucho de microdrive. Una vez realizadas estas operaciones con 
los dos programas, dispondrá de un libro de direcciones electrónico 
capaz de almacenar y manejar más de cien nombres y direcciones. 

El sistema funcionará bien siempre y cuando los dos programas 
estén grabados en un cartucho y se usen de acuerdo con las instruc- 
ciones que puede encontrar al final del capítulo y en los mismos pro- 
gramas. Están diseñados para ser autoinstructivos y a prueba de equi- 
vocaciones; por lo tanto, una vez puestos en marcha, cualquier miem- 
bro de la familia puede usarlos sin necesidad de consultar el libro. 


DIRECC. 1 


Este es el programa «solamente escritura» que inicializa el libro 
de direcciones. Se debe introducir en el ordenador y después grabarlo 
mediante la instrucción: 


SAVE *“m”;1;“DIRECC. 1” 


Listado 
S PAPER 0: INK 6: BORDER QU 

10 LET 1I=1 

20 DIM 15$(50,30) 

30 DIM Uu$1(S0,30) 

40 DIM v$150,30) 

50 DIM vs$(S50,30) 

60 DIM x5$(50,30) 

70 DIM y$(50,301 

30 DIM 725(50,30) 

30 CLS 

100 PRINT TAB 5; "CONSTRUCTOR DE 
ARCHIVO" 

110 PRINT TAB 5; "uzxzmzz=z=m==z=s == 
xs ===" 

1289 PRINT : PRINT 

130 PRINT "ESTE PROGRAMA SE UTI 
LIZA PARA" 

140 PRINT 

150 PRINT "CONSTRUIR UN ARCHIVO 
DE DATOS" 
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15809 PRINT 

170 PRINT 
EN_ UN " 

150 PRINT 


190 PRINT 


SERA USADO 
200 PRINT 
210 PRINT 

ECCc.2- 

220 PRINT 
230 PRINT 


"LLAMADO -DIRECCION- 
"MICRODRIVE, EL CUAL 
"POR EL PRUGRAMA -DIR 


"“DISPONDRA DE TODAS L 


AS E IA 


2409 PRINT 
250 PRINT 
RO DE" 

260 PRINT 
270 PRINT 
259 INPUT 
EGUIR";AS 


344 PRINT 


IRECCIONES" 
350 PRI 


NT 
PRINT 


Q 
TRADAS PULSE" 


410 PRINT 
420 PRINT 
L ARCHIVO. 
450 INPUT 
EGUIR";AS 


"SERIE DE NOMBRES 


PUEDE" 


"QUE ESPERA DE UN LIB 


"DIRECCIONES." 


"PULSE -ENTER- PARA 3 


"EL PROCESO DE INICIA 


"REQUIERE LA INSTRODU 


Y OD 


"(LA CANTICAD DE ENTR 


"SER CUALQUIERA ENTRE 
"PARA TERMINAR LAS EN 


CO-FIN- Y SE GRABARA E 
"PULSE -ENTER- PARA S 


"UN PROBLEMA QUE PUED 


"ES QUE LAS DISTINTAS 


DIRECCIONES" 


500 PRINT 
3510 PRINT 


NT 
550 PRINT 


Y PULSANCO 


560 PRINT 
570 PRINT 
REQUIERE" 


"TENGAN LONGITUDES DI 


"SE SOLUCIONA FIJANDO 


"ENTRADA SIETE LINEAS 


"-ENTER- CUANDO HO SE 


35 


36 


5594 PRINT 
590 PRINT "COMPLETAR UNA CIERTA 


s00 ars "PULSE -ENTER- PARA 5 


EGUIR"; 

610 CL5 

620 PRINT "EJEMPLO" 

630 PRINT "=u=z====" 

5640 PRINT : PRINT 

650 PRINT "NOMBRE.+.....«<«S5R.+ dJ. 
MARTINEZ" 

660 PRINT "LINERI(2)...... CALLE 
CIPUTACION" 

eS PRINT “LINEAR(S) ...... 340 3 
ú - a" 

650 PR INT “LINER(4).....:.08014 
BARCELONA" 

590 PRINT "LINEA(S)......ESPANY 


700 PRINT "LINERAIB)......”"; 
702 INK 2: FLASH 1: 
70S PRINT o 


e 
109 PRINT ria ii 
12 INK 2: FLASH 
15 PRINT "PULSE, -ENTER=) " 
717 INK 6: FLASH 
720 INPUT "PULSE CENTER- FARA 3 


¡AS 
pe PRINT : PRINT : PRINT : PRI 


40 PRINTO0O 
742 FLASH 1 
27£5 PRINT "ESTA LISTO PARA EMPE 
747 FLASH 9 
758 INPUT "SI/NO";AK 
769 IF As="NÓ" THEN GO TO $e 
79 GO TO 790 
768 Go Ta 788 
798 CLS 
808 PRINT TAB 8; "INICIALIZACION 


¿310 PRINT TAB 8," "=z=z=z=z=====2=2z=x= 
3520 PRINT 


330 PRINT "NOMBRE"; I 
340 PRINT "==x====" 


350 PRINT 
360 INPUT "NOMBRE... o..." TGI) 
370 _IF T4(il,1 TO 3)="FIN" THEN 
30 _TO_103 
30 PRINT “NOMBRE. ..«..“¡THCI) 
398 INPUT "LINER(2)..."¡U$iI) 
2900 PRINT "LINEA(2)..."¡;U$CI) 
310 INPUT "LINER(3)..."¡U$CI) 
320 PRINT "LINER(3)..."¡U$BtI) 
230 INPUT "LINERI¡4)..."¡WU$(I) 
240 PRINT “LINEA (4)... "¡UBLCI) 
250 INPUT “LINEA(S)..."¡X$1(1) 


HAHAHAHA 
ZZZZZ 
Mmmm 
DIDDI 
JJ 


1-4 
1055 PRINT " SE ESTA ESCRIBIENDO 
EL ARCHIUD " 
1957 FLASH Q 
10560 FOR JUzl T 
1070 PRINT 
1980 PRINT 
1999 PRINT 
11009 PRINT 
11109 PRINT 
11209 PRINT 
30 PRINT 
489 NEXT y 
50 PRINT H4;' 
su 
vu 


Hu 


nn. 
PPPAREP 


NXXICCAO 
O PARAR RARA 


al] 


+ 


a 
a e | 


a 


E 


a 
p 
Y: CECCECCÍ 


CLOSE 4 
STOP 


DIRECC. 2 


Este es el programa de manejo del archivo DIRECCION que ha 
sido inicializado mediante el programa DIRECC. 1. Debe entrarse cui- 


dadosamente y grabado con la instrucción: 
SAVE **m”;1;“DIRECC. 2” 


Listado 


19 LET FRUEBA=<0 
CELS 


20 

30 GO 5UB 9300 

40 DIM T5$(50,30) 

S0 DIM U$(S0,30) 

560 DIM U$1(50,30 

70 DIM U$(50,30) 

30 DIM xX$150,30) 

90 DIM Y5$(50,30) 

100 DIM Z25(50,30) 

110 DIM F(10) 

120 OPEN 84; '"M";1; "DIRECCION" 

1309 LET Izl 

140 INPUT Ba; O 

180 IF pda TO 3)="EOF" THEN 
GO TO 240 
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38 


164 INPUT H4;:U5$( 
1789 INPUT $4;U5( 
15389 INPUT 44,U5( 
1909 INPUT H4;x5( 
200 INPUT 84;:¡Y5( 
2109 INPUT H4,Z$( 
2209 LET I=I+1 
2309 60 TO 148 
249 CLOSE 84 

250 GO SUB 1230 
2560 

270 

250 

290 


CLS 
A *MENU PRINCIPAL + 
PRINT TAB S; "MENU PRINCIPAL 


¿300 PRINT TAB 9; "=== zzxezzz==z 
310 PRINT ; PRINT : INT 
320 PRINT "dos... IMPRIMIR ARCMIUV 
O COMPLETO" 
330 PRINT 
a PRINT "2....BUSCAR E IMPRIM 
350 PRINT 
PRO" PRINT "3....BORRAR UN REGIS 
370 PRI 
350 PRINT "4....CAMBIAR UN REGI 
STRO" 
399 PRINT 
td PRINT "5....ANYADIR REGISTR 
410 AN a: 
420 PRINT "6....CERRAR LIBRO DE 
o 
430 PRI RINT 
440 INPUT SELECCIONE A +] 
450 IF A<1 OR R>6S THEN 60 TO 44 
4860 GO TO R*1000 
1900 CLS 
Q109 PRINT TAB 6; "SECCION DE IMP 
RESION" 
1020 PRINT TAB 8; '=zzzz=== == ==z 
Zurzz=s=" 
1030 PRINT PRINT : PRIN 
1040 PRINT AN RT" EN LA 
PANTALLA" 
1050 PRINT 
1060 PRINT "2.... IMPRIMIR EN IMP 
RESORA" 
1970 INPUT "SELECCION= "¡A 
1989 IF R>2 OR Ax1 THEN 60 TO 18 
É 
1090 IF A=1 THEN GO TO 1110 
1100 IF A=2 THEN GO TO 1410 
LILA LS 
1120 FOR J=1 TO I-1 
id TAB 6; "VOLCADO DEL AR 


1140 _PRINT 


U 

D 

H 

pa 
MXAXECCA 


E 


H10 03000 PG 

<060050-00 
H 
Le 
D 
a 
+4 


PROPPRERERMERER 
OA 
di 

En 

TD 

H 

Le 

— 


TAB 6;" 


1310 PRINT 


INPLIT 


IF A=1 
FORMAT 


1410 
L ARCHIVO" 
1420 PRINT 83;" 
= ===! 

FOR J=1 TO 
PRINT $3; 


ss E a 


1490 
TO 15709 
13009 PRINT 3; 
1510 IF CODE ( 
TO 1570 
1520 PRINT $3; 
1530 IF CODE 
TO 1570 
1549 PRINT Y 
15509 IF CODE (2 
> 
ES 


an 


E EL c£6. EC CELE 


TO 1570 

1360 PRINT 83; 

PRINT 23, 
NEXT YU 

GO TO 270 
CcL5S 


LET RF=1 


-ENTER- 


TAB 56; "VOLCADO 


IF Ax<1 OR A>2 THEN 
THEN RETURN 
1) 


-1 
REGISTRO, 


o? 


mo Se? e? 


Sen” a? e” a” ¡] 


Sa” Ta? 


EY 


PARA 3 


DEL AR 


<= == 


: PRINT 

"lo... IMPRESORA-ZX" 
“2... . IMPRESORA 
"SELECCION= "¡A 


ESPEC 


50 TO 13 


VOLCADO DE 


ARA 


=32 THEN 


— 


=32 THEN 


o 


=32 THEN 


o 


o 


=52 THEN 


39 


40 


o. 


CO -y 1 0 EP LM Es 10 00 y 1 E CN PR ODO PR OZ O A UN Pe LO A 6 101 00 - ON 
5060060060660 GEAR 20D 


IMPR 
390 


TE RE 
2510 
EGUIR 
2520 
3000 


PRINT TAB 7; "BUSCAR E IMPRI 


PRINT TAB 7;"=z===== 23 =mz== 

PRINT : PRINT 

GO SUB 2070 

GO TO 23830 

INPUT "NOMBRE= "'¡N$ 

PRINT "NOMBRE= "'¡N54 

LET RF=1 

PRINT 

PRINT " ", FLASH 1;,'"BUSCA 
FLASH 0 

PRINT 

PRINT "SE HA ENCONTRADO: " 
PRIN "Se 232 cons =m====" 

PRINT 

FOR J=1 TO I-1 

FOR Kz1 TO (30-LEN (N$)) 

IF T$S$id,K TO [(K+LEN (NS) -1) 

THEN 60 SUB 9100 

NEXT K 

NEXT Y 

LET A=1 

IF RF=2 THEN 60 TO 2268 

IF RF=1 THEN GO TO 2500 
INPUT "SELECCION= "¡A 

IF A<1 OR A>RF THEN GO TO 2 

CLOS 

PRINT TAB 12;,'"DIRECCIOÓN" 

PRINT TAB 12;,"=====z====" 

PRINT : PRINT 

PRINT TS$(F(R)) 

PRINT USsS(F (A)) 

PRINT 0 ica) 

PRINT W$(F(R)) 

PRINT XS(F(R)) 

PRINT YS$(F (A)) 

PRINT ZS5(FI1R)) 

RETURN 

INPU "QUIERE UN LISTADO EN 

ESORA?";A 

IF A$z="NO" THEN G0 TO 270 

PRINT 83;TAB 12,'"DIRECCIÓN" 

PRINT 83;TAB 12;"==zz=====" 

PRINT R83;TS(F(A)) 

PRINT R3/;U$(F (A)) 

PRINT 83;U$(F1R)) 

PRINT e 

PRINT B3;XS(F(R)) 

PRINT R3:¡YS(F(A)) 

PRINT 83,Z4$(F(AR)) 

GO TO 27 

PRINT FLASH 1;"NO EXISTE ES 

GISTRO" 

ae "PULSE -ENTER- PARA $S 
2 

GO TO 270 

CLS 


3010 LET PRUEBA=1 

3020 PRINT TAB 12; "BORRADO" 
3030 PRINT TAB 12;"==ze===" 

30489 PRINT : PRINT 

39059 INPUT “NOMBRE A SORRAR”";N$ 
3060 PRINT A ¡N$ 

3079 PRINT PRINT 


30320 FOR Kz=1 TO (38 -LEN (N$) J 
db LET AfSzTS$(JY,K TO (KR+LEN [(N5 


3) 

3100 IF A$=N$ THEN GO TO 3150 

109 NEXT _ K: NEXT YU 

EGISTA FLASH 1,*"NO EXISTE ES 
1 


I 

N 
R"; 
G0 
FO 


r 
m 
it 
NÍXTCCANO 
YM CAR AR AR AR AR ARA 
a, E E] 
CA CMLACACNACACA  - 
"nu". tun. ¿.$0 
MÁXECCA 
IHARARAR AR AAA A 
a sp mn pm pa ms | 
LN LN EN CA CN CN CNA 
+ ++++++ 
beber 


rz 

m 
Ax 

=i 
H 


LE I-1 
BRINT FLASH 1; "REGISTRO BOR 


INPUT "PULSE -ENTER- PARA 35 
R";AS 

GO _ TO 270 

CL5 


4010 LET PRUEBA=1 

4020 PRINT TAB 12; "CAMBIOS" 
4030 PRINT TAB 12; "za=z====' 
4240 PRINT : PRINT 

42950 60 SUB 2070 

40580 PRINT FLASH 1; "CAMBIOS" 


0060600000066 H-0IG6 
E 
m 
—Á 


$ 03 M 070 0 0 6 Ci 0 44 La 1 04 03 0 LI IM Ly A (a CA 
GOD OND0DD-P?RrRrrrorMPE 


GJICRNOANPGAUDOO JAIME mm 


SESGO 


e PRINT NOMBRE... o. "¡TELELA 
PO INPUT "LINEA(2)...."¡;USIF IA 
e PRINT "LINEA(2)....“¡USIFIA 
> INPUT "LINEAIS)....“¡UBIF (A 
O PRINT "LINER(S)...."¡¿USIF CA 
dd INPUT "LINERAI4)...."“¡USCFIA 
E ON PRINT "LINER(4),..."¡USIFIA 
dl INPUT "LINEAI(S)...."¡XSIF IRA 
e ió PRINT "LINERIS)....“¡XSIF IA 


o" : 
"PULSE -ENTER- PARA 35 


41 


42 


4150 INPUT "LINERIS). 
rula PRINT "LINERIS). 
rá des INPUT "LINEA (7). 
dales PRINT "LINEA (7). 


"¿Y S UF (A 


¿CY SAIECA 


A MOS 
“ZA IF(A 


425309 INPUT "PULSE -ENTER- PARA S 


50580 G0 SUB 4100 
LEFT Iel+i 
R' 11] 

ela PÉo 270 


91 MBA 
0 


0) 
o 


PRINT : PRINT 
IF PRUEBA=48 THEN 


GEO DOOM 


Ss 
on + 
6 


ys P 
NUEVO ARCHIVO" 
a] PRINT : 


0 
Gu 

0 YD 
06066 
oO 

U 

m 

Le 

a 

p 

E 


Z NÁXE CCA": 
M>ARARARAR ARMAR AR 


O 


a so DU 
o 


* ETECTCECCILA 


U 
D 
H . 
ps 
= 
H 
p 


ESTE PROGRAMA" 
PRINT : PRINT 
PRINT " 


CLOSE $3 
STOP 


0 O 0 dh Ch Ch E O 0 Gs 0 O O O O Ch Ch O 
Pi POD TONO -P+rRrRrRrPRrPro 
WrPO6PDUND DO NO 0 PDA DID 
0600660009006 10000060600660666 

O 

r 

O 

LA 

m 

* 

p 


RETURN 


CLS 
ERINT TAB 6; "RUTINA 
PRINT TAB 5,"==== 


GO 


REGISTR 


INPUT "PULSE -ENTER- PARA S 


Y 


Oo 6200 
RINT FLASH 1; "ESCRIBIENDO 


PRINT FLASH 1; "GRACIAS POR 


PRINT 


PRINT RF;"...";TS(J 
LET F(RF)=J: LET RFSRF+1 


PRINT FLASH 1; "ADIÓS" 


23500 PRINT " nia 

2302 PRINT FLASH 1; "BIENVENIDO A 
L LIBRO" 

3304 PRINT " 


9308 PRINT FLASH 1;"DE DIRECCION 


9310 PRINT : PRINT_ : PRINT 
3320 PRINT "AHORA SE CARGA EL AR 


Instrucciones 


A partir de aquí se supone que ambos programas se han entrado, 
comprobado y grabado en un cartucho, por lo tanto están listos para 
ser inicializados y empezar a usar el libro de direcciones. 


1.? etapa 


Cargue el programa DIRECC. 1 mediante la instrución: 
LOAD **m”;1;“DIRECC. 1” 


Pulse RUN. Aparecen en la pantalla una serie de instrucciones 
que le indican cómo debe entrar los nombres y direcciones. Debe leer- 
las cuidadosamente antes de seguir. 

Se observa en la introducción que todas las direcciones se entran 
y graban usando el mismo número de líneas (una para el nombre y 
seis para la dirección), debiéndose pulsar ENTER si la línea ha de ser 
vacía. Este sistema evita las dificultades causadas por direcciones de 
distintas longitudes (véase fig. 7). 


Juan Rodriguez Luis Perelada 
Calabria, 94 Alcala, 234 
usul5s Madrid 


Barcelona Tel.: 256 73 YU 
Tel.: 2394 55 73 


Fig. 7 
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Después de entrar unos cuantos registros (no hay porque entrar- 
los todos en esta etapa), la información se almacena en el archivo 
pulsando FIN como respuesta a la pregunta NOMBRE=. Los datos se 
transfieren al cartucho de microdrive, siendo grabados en un archivo 
de datos llamado DIRECCION. 


2.” etapa 


Después de utilizar el programa DIRECC. 1 para crear el archivo 
inicial, no se usará más, a menos que quiera inicializarse otro libro de 
direcciones en otro cartucho. Por ello conviene mantenerlo en reserva. 


LOAD **m”;1;“DIRECC. 2” 


para cargar el programa principl y luego pulse RUN. Aparece en la 
pantalla un mensaje de bienvenida y el programa carga en memoria el 
archivo de direcciones actualizado. Cuando se ha completado la 
carga, el ordenador pide información de su tipo de impresora y apare- 
ce en la pantalla el menú principal (fig. 8). 

Pulsando un número entre 1 y 6 (cualquier otra entrada será igno- 
rada), puede acceder a una de las opciones mostradas en la figura 8. 
Estas opciones se describen a continuación. 


MENU PRINC LEAL 


s. IMPRIMIR ARCHIVO CCUMPLETO 
« «BUSCAR E IMPRIMIR 


. "| BORRAR UN REGISTRO 
. [CAMBIAR UN REGISTRO 
. « HNYADIR REGISTROS 
«CERRAR LIBRO DE DIRECCIONES 


Fig. 8 


Imprimir archivo completo 

La primera opción imprime el archivo entero (nombre y direccio- 
nes) en la pantalla o la impresora. Esta función es útil para comprobar 
si el archivo está completo o para obtener un listado escrito. 
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Buscar y mostrar 


Esta función está diseñada de tal forma que no es necesario en- 
trar un nombre completo, siendo suficiente para la búsqueda teclear 
cierto número de caracteres. Es decir, si se entra como código de 
búsqueda las letras PE, el ordenador mostrará todos los nombres que 
contengan esta combinación. Por ejemplo: 


sis PEREZ 

.. PERAL 

... PEINADO 

.. PERMANYER 
ví, LOPEZ 


NnNA=<ADN—- 


El usuario debe escoger qué registro es el que desea imprimir, 
entrando el número adecuado. El ordenador responde mostrando en 
la pantalla el nombre completo y la dirección. 


Borrar registro 


El usuario puede borrar un registro completo del libro de direccio- 
nes. Se consigue tecleando un nombre o combinación de letras. El 
ordenador lo busca igual que en la segunda opción, mostrando todas 
las posibilidades en la pantalla. Al especificar el número de registro a 
borrar, se procede a su eliminación del archivo. 


Cambiar un registro 


Las personas cambian a veces de dirección. Mediante esta fun- 
ción podrá variar los campos de dirección de un registro sin afectar a 
los del nombre. Se localiza el registro como en los comandos anterio- 
res y se entra la nueva dirección mediante el teclado, escribiéndola 
sobre la antigua. El método de entrada de la información es el descrito 
en el programa DIRECC. 1 usando la tecla ENTER cuando no se re- 
quiere una línea de información. 


Añadir registros 

Cuando se escribió el programa DIRECC. 1, se especificó que no 
era necesario entrar todos los registros en aquel momento. Esta fun- 
ción permite añadir nuevos nombres y direcciones al final del archivo. 
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Cerrar libro de direcciones 


Esta es la parte más importante del programa y siempre debe 
utilizarse este comando cuando se haya terminado la utilización del 
libro de direcciones. El ordenador comprueba si el usuario a hecho 
alguna alteración en el archivo y, si así fuera, se borra la versión anti- 
gua del archivo y se almacena la nueva en su sitio. 


Conclusión 


Con las técnicas descritas en este capítulo, el programa lee todo 
el archivo del cartucho y lo almacena en la memoria RAM y se mantie- 
ne allí hasta que se termina el proceso. Este método incrementa la 
velocidad de respuesta del programa, pero limita el número de regis- 
tros a menejar ya que la memoria principal se llena rápidamente. Una 
alternativa a esta técnica, que resulta útil para poder tratar archivos 
mayores se describe en el capítulo 6. 
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5. La agenda electrónica 


Los tres programas contenidos en este capítulo proveerán al lec- 
tor de una agenda electrónica que contiene todas las funciones que 
serían deseables en una agencia convencional, más una serie de po- 
sibilidades adicionales que no sería posible tener con un lápiz y un 
papel. 

Es difícil enumerar todas las ventajas de utilización del ordenador 
como agenda. Es mejor entrar los programas siguientes y apreciarlas 
de primera mano como usuario. 


Funciones 
1) Cálculo completo del día, dando la fecha. 

2) Incremento automático de la fecha. 

3) Facilidad de edición. 

4) Libro de cumpleaños y aniversario con facilidad de edición. 

5) Cumpleaños y aniversarios mostrados automáticamente. 

6) Aviso previo de cumpleaños y aniversarios. 

7) La agenda funciona con un ciclo de 365 (366) días y todas las 
anotaciones antiguas se borran automáticamente. 


El sistema es muy complejo y requiere tres programas y un cartu- 
cho de microdrive nuevo. Debido a su complejidad, deben seguirse 
cuidadosamente las instrucciones dadas con cada programa y al final 
del capítulo. 


DIARIO.1 


El programa debe ser introducido en el ordenador, comprobado 
cuidadosamente y grabado en un cartucho de reserva usando la ins- 
trucción: 


SAVE *“m”;1;“DIARIO.1” 
Nota 

En esta etapa el programa no debe grabarse en el cartucho desti- 
nado a ser utilizado como agenda electrónica. 
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Listado 
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E DIM M$(12,15) 
DIm D(12) 

3 DIM S$(7,9) 

4 CLOSE 83: CLOSE 4 

S LET 18=2"" 

10 CELS 

20 PRINT TAB 5; "INICIAL IZACIOÓN 
AGENDA" 

30 PRINT TARB.5; "xseszeazscszz=zzmz=s 
Soxr===' 

40 PRINT : PRINT 

Su PRINT "EL OBJETIVO CE ESTE 


INT 
390 PRINT 


"INICIALIZAR EL CARTU 


“MICRODRIVE QUE SE UT 


ILIZARA PARA" 


100 PRINT 

cn PRINT "LA “AGENDA ELECTRON I 
E - q 

120 PRINT 

130 PRINT 

140 PRINT "ESTE FROGRAMA SOLO D 
EBE SER" 

159 PRINT 

1860 _PRINT "UTILIZADO UNA VEZ, Y 
A QUE" 

170 PRIN 

150 PRINT "FORMATEA EL CARTUCHO 

Y DESTRUYE" 

199 PRI 

200 PRINT "SU CONTENIDO." 

210 INPUT "PULSE -ENTER- PARA 5S 
EGUIR "¿As 

220 CLS 

250 PRINT TAB S; "INICIALIZACIOÓN 

AGENDA" 

240 PRINT TAB S; “============== 
250 PRINT : PRINT 

260 PRINT "EL PROCESO DE INICIA 
LIZACION" 

2709 PRINT 

2309 PRINT "REQUIERE QUE USTED 1 
NTRODUZCA LA" 

299 PRINT 

300 PRINT "FECMR. DESPUES DE ES 
TO PERDERRA" 

305 PRIM 

310 PRINT "EL CONTROL DEL MICRO 
CRIVE aa 

320 PRIN 

35u PRINT "QUE SE HAYA COMPLETA 


DO 
340 PRINT 


350 PRINT "PROCESO 

360 PRINT : PRINT :; PRINT 
3708 PRINT FLASH 1; "COLOQUE UN C 
ARTUCHO NUEVO" 

OE: ad FLASH 1;"EN EL MICROD 
3980 ay "PULSE -ENTER- PARA $S 
EGUIR AS 

390 Go” SUB 9000 

408 CLS 

410 PRINT : PRINT : PRINT : PRI 


420 PRINT FLASH 1;" INICIAL IZACI 
MARCHA" 


4309 PRINT : PRINT 
440 PRINT FLASH 1;"ESPERE UN MO 
e POR FAVOR 
45 FORMAT Aa; "AGENDA" 
450 OPEN_84;"M%;1; “FECHA” 


450 ; 
490 PRINT 84,DIA 


NANAANAE 
QMEPRPPROD 


; "CUMPLEAN" 


1 
F 
Ñ : PRINT 


E sa 
PRINT PRIN 
5 ; "INICIALIZACI 


3 
y 
Q PRINT FLA H 
COMPLETA" 

Y STOP 

s000 STOP 


o 12 
9029 RERD MS$(1),D(I) 


EXT I 
9035 FOR I=1 TO ? 
39036 RERD 5$5(1) 


NEXT _ I 
3040 INPUT "FECHA DD+MM+ARA — = " 


2070 LET B$=D$( 


1 
o 
e] 
gu 
r 
m 
- 
O 
- 
$“ 
O 
id 
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120 LET 1=B5-1 
9130 LET 1:=C-83 
9135 IF C1=0 THEN GO TO 9180 
3140 FOR EL TO a 
39145 LET = INT EN 
39147 LET Y=(83+C1) 
29150 IF Y=X THEN LÉF DIA=DIA+366 
¿GO TO 9170 
2160 LET IA=DIA+355 
39170 NEXT 1 
3175 IF B1=W0 THEN GO TO 9210 
39150 FOR *1 TO 
3956 LET IA=DIR+D(I 
2200 NEXT I 
2210 LET IA=DIA+A1 
29215 LET DRAT1=DIA 
1023 LET PRUEBA=INT (DIA?) 
24230 LET IA=(DIA-(PRUEBA+*”7)) 
23240 RETURN 
39200 DATA "ENERO" ,31,"FEBRERO",2 
S,' "MARZO" 
ON TOS 31,“ ABRIL" ,30,"MAYO",3 
id DATA 30," JULIO" ,31,"AGOSTO" 
, 
AA "SETIEMBRE" ,30,"OCTUBR 
¿ 
3914 DATA "NOUIEMBRE",30,'"DICIEM 
BRE" ,31 
on DATA "DOMINGO", "LUNES" ,'"MAR 
3922 DATA "MIERCOLES" ,"JUEVES", 
UTERNES" 
3924 DATA "SAEADO" 
Nota 


Una vez entrado, comprobado y grabado en un cartucho de reser- 
va, el programa queda listo para formatear el cartucho destinado a 
agenda. Haciendo esto, los otros dos programas podrán salvarse di- 
rectamente en el cartucho agenda. 

Cargue el programa desde el cartucho de reserva y pulse RUN. 
Se le requerirá la colocación de un cartucho en blanco y pulsar 
ENTER. Al seguir estas instrucciones, tendrán lugar el formateado y la 
inicialización. No le extrañe que el microdrive esté trabajando mucho 
tiempo, hay que crear muchos archivos y el proceso requerirá algunos 
minutos. 

Una vez se ha completado la inicialización, el programa puede 
grabarse mediante la instrucción: 


SAVE **m”;1:“DIARIO.1” 
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DIARIO.2 


Este segundo programa es la sección de autoejecución del siste- 
ma. Debe ser utilizado cada día para incrementar la fecha. Debe ser 
introducido con gran cuidado, comprobado y grabado en el cartucho 
últimamente formateado mediante la instrucción: 


SAVE **m”;1;“run”LINE 1 


Nota 
Es muy importante que el nombre del programa sea entrado con 


letras minúsculas: “run”. 


Listado 
DIM M$(12,15) 

3 51m Ey 

3 DIM S$1(7,9) 

4 DIM 15(31,200) 
19 CLS 

20 FOR Iz1 TO 12 
30 READ MS6(1) ,D(I) 
489 NEXT I 
S0 FOR Iz1 TO 7? 
60 READ 5$41(1) 

70 NEX 


IF DIA>? ¿THEN LET DIA=1 
LET Xx1=C 

LET RO=INT (0/4) 

IF Bz2 AND Az=29 AND x1=X2 T 


HEN 60 TO 150 
IF AD(B) THEN LET Asi: LET 
+ 
IF B>12 THEN LET B=1: LET C 
E GO 5UB 8610 
PRINT : PRINT : PRINT 
PRINT FLASH 1; "GRABANDO LA 


ERASE "M";1; "FECHA" 
OPEN SS ME 1;"FECMA" 


PPGDOJAOAARA+ +4 UuZirrra 


NNUU SERMONES 
60066 GAGATAIMAG-AGOG GUCCI 


CLOSE 

INPUT "PULSE -ENTER- PARA C 
ARGAR AGENDA"; AS 
235 PRINT 


236 PRINT FLASH 1; "CARGANDO LA 
AGENDA" 
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LORD *"M";1, "AGENDA" 
STOP 


PRINT " ae 
PRINT FLASH 1;"BIENVENIDO HA 


S PRINT " 1d 
O PRINT FLASH 1; "AGENDA ELECT 


5530 PRINT : PRINT : PRINT 
S535 PRINT " Ms 
5540 PRINT FLASH 1,"FECHA DE HOY 


8541 PLOT 54,120 
y 1 


$550 OPEN _R4;,"M";1,"FECHA" 


35600 CLOSE 

3505 RE 

5610 PRINT PRINT 

ss6lá4 LE = 

3615 FOR I=1 TO LEN (3S6DIA)) 

ae S5(DIA,1I)<>" " THEN LET 

S617 NEXT I 

3618 LET T=z=((32-T) /2) -1 

55620 PRINT TAB T;¡SSI(DIA) 

S624 LET T:x0 

5625 FOR I=1 TO LEN (MS5(B)) 

id IF ME6IB,I)<>" " THEN LET T= 
de 

5627? NEXT I 

35628 IF A>9 THEN LET Tz=T+1 

35630 PRINT TAB (((32- (T+2)) /2) -1 
IA " M$51B) 

5835 PRINT 

5640 PRINT TAB 13; 19004+0 

5841 PLOT $90,120 

3642 DRAW 158,0 

5643 DRAUW 0,-50 

s644 DRAW -150,0 

35645 DRAWY 4,60 


R 
9900 ce Ps "ENERO" ,31,"FEBRERO",2 


- 9902 DATA 31,"ABRIL",30,"MAYO",3 


Se 


3910 DATA 39,"JULIO",31,"AGOSTO" 
éS12 DATA "SETIEMBRE" ,30,"OCTUER 
3914 DATA "NOVIEMBRE" ,30,"DICIEM 


O PATA "DOMINGO", "LUNES", "MAR 
9922 DATA "MIERCOLES" ,"JUEVES"," 


UTIERNES" 
9923 DATA "SABADO" 


Nota 
No intente ejecutar el programa en esta etapa. 


DIARIO.3 


Esta es la tercera y principal parte de este programa, e incorpora 
las principales funciones del sistema. Como las anteriores, debe ser 
introducida cuidadosamente y grabada utilizando la instrucción; 


GOTO 9999 


Con ella el programa será grabado de tal forma que podrá ser 
cargado y ejecutado desde el segundo programa DIARIO.2 


Listado 


Je 


B6BA=0: LET ERROR=4 
CLOSE 4 

0,14) 

0,11 

25 


£n 
Z DOFMODANOZ 
DEA TDR AR 


Mr -H4Cn-P- 


E 
0 
dE 
IS 
S ) 
IS 


z 


¿ "CUMPLEARN" 


e 


PFPOCODOFTFTrFrocdo 
MUAHHAHF MMM AAHA 
“MITO AIATLTLT 


ne 


F CIU G60 0 -J 0107 P Cd UE 
H 
Le 
DU 
E 
ar! 
a 


Prep 


"Mm 
¿L5 ) 

y 3)="EOF" THEN 
INPUT 34,0 


1686 INPUT RH4.:P 
17 LET NB=NB+ 


PAR 


20 FOR I=1 TO 12 
49 NE 


dá; pa MS s E "FECHA" 


53 


54 


120 INPUT 84;DIA 
125 INPUT $4;DAT1 
130 CLOSE 4 


CcLS 
141 LET CAMBIO=0 
¿154 PRINT TAB 9; “MENU PRINCIPAL 


160 PRINT TAB 9; "z2z2= mezzzz=mze=zz 
170 PRINT : PRINT 


130 PRINT "1.... IMPRESION ANOTA 
CIÓN DE o 


200 PRINT "2...+. IMPRESION ANOTA 
CIÓN FUTURA" 
210 PRINT 
¿220 PRINT "3S....HACER ANOTACION 
2530 PRINT 
240 PRINT "4....BORRAR ANOTACIO 
250 PRINT 
PRINT "5S....ENTRAR LIBRO CU 


2609 PR 
MPLEANYOS" 

261 PRINT 

262 PRINT "6....CAMBIAR LA FECH 


263 PRINT 

264 PRINT adas CERRAR a ida 
270 INPUT "SELECCION 
Pell IF 5<1 OR 3S>7 THEN 60 TO 27? 
299 GO TO (S*+*1000) 

19009 REM **ANOTACION DE HOY+*+* 
19109 CLS 


id PRINT TAB 3, "ANOTACIÓN DE H 
1030 PRINT TAB 3, "zerszzz=zze =32 = 


1040 PRINT 
1950 PRINT DET 1; "FECHA" 


ro 


PRINT INVERSE 1; "ANOTACIONE 


y 
0 
0 LET Af=zM$5(B,1 TO 3) 
S LET ASzA 

6 LET A1=A: LET B1z=B: LET Clz 
o 

a 

0 

[Ea] 


LET DIA1=DIA 

GO SUB 9200 

GO TO 140 

REM **ANOTACIOÓN FUTURA :*x 
2019 CLS 

2020 PRINT TAB 9; "ANOTACION FUTU 


2030 PRINT TAB 9; "z======== z=mmxR 


UrrrOrrrmnee 


Greer Pere 
GU Prr wm 


O GI E) LA CI O 0 CS 4 Ly 6 3 6 0 LS a Ls Y CS Ls Gi 


Y PRINT 

0 PRINT INVUERSE 1,"FECHA" 

0 INPUT "FECHA DD+MM/RA 2 " 
0 LET RIVAL (Z$(1 TO 2)) 

Q LET B1=VAL (Z5$(4 TO 5)) 

GQ LET C1=VUAL_ (Z2$(7 TO 9)) 


S GO SUB 93000 
0 GO SUB 93600 


o SOSINOSS 


4 
s 
2) 
¡Z$ 
207 
2035 
209 
209 
210 
21058 IF ERROR=1 THEN GO TO 2060 
2110 PRINT 35 (DIA1) 
2120 PRINT Rl1l;," " lc 
2130 PRINT 1900+C 
21489 PRIN 
Ad PRINT INVERSE 1; "ANOTACIONE 
2160 LET A$=M$4(B1,1 TO 31 
2170 LET AS=A1L 
21509 60 SUB 9200 
21309 60 TO 140 
3010 CLS 
NA PRINT TAB 9; "NUEUAS ANOTACI 
U 
3030 PRINT TAB 9, ==z==== zzzzu=z 
so=x" 
30480 PRINT 
041 PRINT INUERSE 1,"FECHA" 
EE INPUT "FECHA DD/MMARA = 
3060 LET A1=zVAL (Z4$(1 TO 2)) 
070 LET B1=VAL (Z25$(4 TO 5)) 
3030 LET C1=UAL (2617 TO 8)) 


3095 IF ArSnio ad GO TO 3050 


Lu 
Pp 
a 
pa) 
UD 
po] 
H 
EL 
H>3 
4 
id 
O 
H 
— 


3110 PRINT Al;" ",M$(B1) 

128 PRINT 1900+c1 

130 PRINT 

200 LET AS=M$(B1,1 TO 3) 

208 IF PRUEBA=S1'THEN 30 TO 325 
2109 OPEN 84, "M";1;AS 

2390 INPUT 34,15 

259 CLOSE s4 

251 LET PRUEBA=B1 

260 LET Pz=1 

2708 FOR I=1 TO LEN (18) 

230 IF P=A1 THEN GO TO 3300 

299 IF I$(1)="*" THEN LET P=P+1 
295 NEXT I 

2296 STOP 

309 LET G$=185(1 TO 1-1) 

310 LET H$=1$t1 TO LEN (1$9)) 
338 INPUT ANOTACIÓN: ¿ES 

340 PRINT INVERSE 1; "ANOTACIONE 
A 

250 LEL 907" ¿EStHS 

388 INPU 3 ANOTACIONES EN E 


55 


56 


STA FECHA?";05$ 


3394 
3400 


IF Og$z="SI" THEN GO TO 32850 
INPUT "MAS ANOTACIONES EN E 


2 A 


410 
3430 
3430 


$ 
IF O$="SI" THEN GO TO 3010 
PRINT : PRINT 
PRINT FLASH 1; "GRABANDO LOS 


ERASE "M";1;A 


0 TO 140 
REM **BORRAR ANOTACION y * 


CLS 
PRINT TAB 8; "BORRAR ANOTACI 
PRINT TAB 3; "zammz= =ezzzex== 


PRINT 
INPUT "FECHA D 


29600 
IF ERROR=1 THEN GO TO 4050 
IF PRUEBA=B1 THEN GO TO 414 


OPEN 34, 'M";1;A5S 
INPUT 14; I5 


GO SUB 9245 
LET CHz=0 
INPUT "ANOTACION A BORRAR= 


EN a 

EN GO TO 4290 

"£" THEN LET P=P+1 
1 


Boro OM APAARHA DD 
¡nMOXPRPRMMH 


r 
m 
pan 

Qr CRACMO *8BUHTD 


su20 PRINT 
5039 PRINT 
COMPLETO" 

5949 PRINT 
5050 PRINT 
A FECHA" 

oe PRINT 


MHT- Amr 


LEN (TH) 


ND X$:<>'"%*" THEN 


(18) ) 


TAB 6;"=z 
: PRINT 

"la... IMPRIMIR LIBRO 
"2... «. INTRODUCIR NUEU 


"3... «BORRAR UNA ANOT 


5080 PRINT "4....BUSCAR E IMPRIM 
IR FECHA 

5090 PRINT 

5091 PRINT "5... .VOLUER A MENU P 
RINCIPAL" 

5092 INPUT "SELECCION= "¡5 

5993 IF 35:<1 OR S>S THEN G0 To se 
5095 G0 TO 5000+(5:100) 

5100 CLs 

105 PRINT TAB 10; "LISTA COMPLET 
5110 PRINT TAB 10;"uz=x=x= z====z== 
5115 PRINT “NOMBRE";¡TAB 14; "0CAS 
5116 PRINT TAB 26; "FECHA" 

5120 PRINT "======"; B 14; "==== 
===", 

5122 PRINT TAB 26; "=====" 

5125 FOR K=1 TO NB-1 

5130 PRINT LS$(K);TAB 14;0O$(K);TA 
B 26;P$(K) 

5135 NÉXT K 

5140 INPUT "PULSE -ENTER- PARA 5s 
EGUIR";Z$ 

5159 G0 TO 5000 

5200 CL5 

5210 PRINT TAB 8; "NUEVA ANOTACIO 
5220 PRINT TAB 3; "=2=z2=2 =ur=m=e=z 
5230 PRINT : PRINT 


57 


58 


S240 INPUT "NOMBGRE= "¡L$iNB) 
5245 PRINT "NOMBRE= ";¡L$I(NB) 
S246 PRINT 

5250 INPUT "OCASION= "¡OSING) 
5258 PRINT "OCASION= "¡OG5ING)I 
5256 PRINT 

le INPUT "FECHA DDMM= "¡PS IN 
5265 PRINT "FECHA = "¡P4IiNB) 
5266 LET NB=NB +1 

5270 INPUT "PULSE -ENTER- PARA $S 
EGUIR";Z5 

5280 60 TO 5000 

5300 CL5 

bd PRINT TAB 9; "BORRAR ANOTACI 
5310 PRINT TAB 9;"=====z= =z=z=zm===z 
5320 PRINT : PRINT 

5325 INPUT "NOMBRE= ",¡N$ 


5330 FOR K=1 TO NB-1 


5335 IF L$í(K,1 TO LEN (N$))=NS T 
HEN G0 TO 5350 

35340 NEXT_K 

5350 PRINT "NOMBRE= ";¡Lg4iKk) 

5355 PRINT 

5360 PRINT "OCASION= "¡O$(kK) 
5365 PRINT 

5370 PRINT "FECHA= "¡:P$( 

33580 INPUT "ES LA ANOTÁCION CORR 


¿25 
5390 IF Z$="SI" THEN GO SUB 5500 
5391 IF DEL=1 THEN LET DEL=0: G0 


TO 5395 
ENTES INPUT "DESEAR HACER OTRO INT 


Z$ 
5394 IF Z$="SI" THEN GO TO 5300 
EOUTR o ze "PULSE -ENTER- PARA 3 


ao de TO 5000 

S410 PRINT TAB 6; "BUSQUEDA E IMP 
RESIÓN 

5420 PRINT TAB 5, "zz=====zx z=z z==z 


5430 PRINT : PRINT 
NB- 
5455 IF L$(J,1 TO LEN (N$))=NS T 
- a 
34565 PRINT FLASH 1,"NO EXISTE ES 
TA e 
5470 TO 5495 
5450 PRINT "NOMBRE= ";¡L$(J) 
3484 PRINT "OCASION ";O$(J) 


5483 PRINT "FECHA= ";PS$1.J) 
5495 INPUT "PULSE -ENTÉR- PARA 5 


an an a nn dan O 
00 90 CO 00 1 07 O 
QlUFGaumurer 
6000650 


OPOUmWUrGnDd-YJ AaAPGUNrSu 


O O Ch O 0 O O e O CO O O 0 O 0 O O CN Ch pa O 0 O O O 0 O 0 
BO TOMO fo TO FOO (ARE rR Ur? rRO RA OOOO 


“y NP LIN PR Pr OIDO JO 
6666614166660 06060666GGGAGO6S —GAGAGAWD 


AL 

G0 TO S0B0 

CELS 

PRINT TAB 9; "CERRAR LIBRO" 
PRINT TA ¡ "ZALLA LLE" 
PRINT 


: PRINT 
PRINT FLASH 1; "GRABANDO LOS 


ERASE "M";1;, "CUMPLEAN" 
OPEN H4;"M";1; "CUMPLEAN" 
FOR J=1 TO NB-1 

PRINT R4;L5$(J) 

PRINT $4;0$(J) 

PRINT 24;P$(J) 

NEXT y 

PRINT N4;"EOF" 

CLOSE 4 
GO TO 140 
FOR JU=kK TO 
LET L5$(JY)= 
LET O$(J)= 
LET P$(JY)= 


? NT 
il FLASH 1; "ANOTACION 60D 


LET DEL=1 
RETURN 


STOP 
ELE *CAMBIAR FECHA 
> 
PRINT TAB 9; "CAMBIAR FECHA" 


PRINT TAB 9; "======= z=z=z==' 
PRINT 


PRINT INUERSE 1." FECHA" 
INPUT "FECHA  DD-MM¿RA = "; 
LET RIVAL (Z2$(1 TO 2)) 

LET B1=UAL (2$(4 TO 5)) 

LET C1=UAL (Z5$(7? TO 8)) 

GO SUB 9000 

PRINT 5$5(DIA1) 

PRINT R1;" ";M$/61) 


PRINT PRINT 
PR INT INUERSE 1; "GRABANDO L 
ERASE “M";1, "FECHA" 
OPEN 384; "M";1;"FECHA" 
d, 


CLOSE 
IF B<>B1 THEN GO TO 6470 
FOR UsA TO A1-1 


Él TO. LEN 11H 


Cy A OOO 
6000 


p 
O G0c 


OO 0 Ch Os O 0 O O 0h E Ch Oh Ch O 9 Ch 0 dG 0 e 0 CO O 0 0 Gh Ce Ts Es O O Ch CT O CN CT 
DAIRARAEAZMAOEARANAONDaRPREPRPIOPEEER PPEPRPRODODO Wu COITO 
UPC -J- DS PQ PICA SAUNA PALTA DO 06 y ON 
3066060006060 GEA 


90D O OO O A O O Oh Ch 
dd 2d dd Y + 2d 1 0 DO 
4 101 E E Lu TU ER E10 00-40 
6060000606050606 


IF P=U THEN GO TO 6310 

IF I$5$tli="x" THEN LET P=P+1 
NEXT I 

LET Gs=I1I4(1 TO I-1) 

LET ESs”>” 

FOR J=I TO LEN (18) 

IF I$iJdi="*" THEN GO TO 636 


TO LEN C1LELI 


LET A=A1: LET B=61: LET C=C 
LET CIA=DIA1 


GO SUB 9000 

LET DIA=DIA1: LET CAT1=DATZ2 
50 TO 6910 

IF ABS (B-B1)>1 THEN 60 TO 
LET PF=1 

FOR I=1 TO LEN (I$) 

IF P=A THEN 50 TO 6500 

IF I$5$i1)="x" THEN LET P=P+1 
NEXT I 

LET G$= (1 TO I-1) 

LET Esf="" 

FOR J=1 TO D(B) 

LET Es=Ebh+"x" 

NEXT UY 

LET IS5=GH%+ES$ 

LET F$=M$1B6,1 TO 3) 

ERASE "M";1;FS$ 

OPEN 84; "M";1;FS5 

PRINT 24,:I5 

CLOSE 24 

LET F$=M$(B1.1 TO 3) 

OPEN 84; "M";1;FS$ 


NEX E 

LET P=1 

FOR Iz=1 TO LEN o 

IF P=A1 THEN GO _ TO 6730 
IF I$£i1l)="x*" THEN LET P=P+1 
NEXT I 

LET Gs=1I$(I TO LEN (1$)) 
LET I$5:E%+6% 

ERASE "M";1,FS5 

OPEN $4; “M'";l;FS 

PRINT 4,156 


q 


5759 LET A=A1: LET B=B1: LET C=C 
: GO SUB 9000 


5799 LET CIA=DIA1: LET DATI=DATZ 
300 60 TO 140 
569009 PRINT INUERSE 1;"NO ES POSI 


BLE 


CAMBIAR" 


a act "PULSE -ENTER- PARA S 


gimda 

00 

mer 
H 
D 


ya) 
0 
2) 


23109 


MR RR PRA 


DAFR GUEY JANANANTIDOPERPEIG GO Cid A 


006 30m 0 


NEO UA MI TIO OA A O A A AAA A RC A A A AU AL UC MC A A A MU O MC 
CCOO O O Jo O TO FO yo NO TOD TO To NO o 
G6G6 EGG-JANFR AJA GArGGua Ga 


GOL 0 + Lo 
gd eL 


O 


: su 
LET DIA1=DIA1+355 


NEXT I 

IF 62:20 THEN 60 TO 31308 
FOR I=1 TO 62 

LET CIR1=D1A1+D 11) 

NEXT I 

LET DIR1=DIA1+R2 

LET CAT2=DIA1 

LET CHECK=INT (DIA1.-7?) 
LET DIRA1=1(DIA1L-(CHECK+7)1 
IF DIRA1=0 THEN LET DIA1I=7? 
RETURN 

IF PRUEBA=B1 THEN GO TO 93924 


OPEN $4, "M";1;AS 
INPUT $4; 15 
CLOSE 4 

LET PRUEBA=B1 
LET P=1 

LET Ez1 

IF AS=1 THEN LET K=2: GO TO 


FOR I=-1 TO LEN (I$) 
AS THEN GO TO 268 
J="%" THEN LET P=P+1 


=1)='"%" THEN 60 TÓ 39 


+ 
FOR J=K TO LEN (189) 
IF 1$:(J)="%" THEN GO TO 9393 


Ie I$ (JJ) <>".:" THEN LET E$=E 
TIFF I$(J)="*" AND J<>1 THEN 
DO 9340 

NEXT y 

PRINT Ej "..."¡ES 

LET Kz=J+1 
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39350 LET E=E+1 

3365 LET Es$="" 

3370 GO TO 39230 

33580 PRINT : PRINT 

23581 GO SUB 9500 

3335 I1F E>1 THEN GO TO 9396 

3390 PRINT FLASH 1;"“NO HAY ANOTA 

CIONES" 

23391 60 TO 3400 

9392 PRINT E,)"..."ES 

9393 LET E=E+1 

233958 GO SUB 9500 

2 IF CH=1 THEN RETURN 

EG UTA DE "PULSE -ENTER- PARA 3 
e 


B$ 
3410 RETURN 
ss REM **COMPROBACION CUMPLEAN 
Y ** 
23514 FOR J=1 TO NBG- 


23512 LET X1=VUAL (P$(J),4 TO 5)) 
9514 LET xX2=UAL (P$(J,1 TO 2)) 
3520 IF X1=51 AND X2:=ñA1 THEN 60 

TO 39522 

3521 60 TO 9523 

9522 PRINT E;,",.,.";: GO SUB 97080 
39523 IF xX1<>B1 THEN 60 TO 9533 
9524 IF CIAL=5 AND X2=A1 THEN GO 
TO 3525 

3525 60 TO 9527 

3526 _PRINT E;",..(REC.) ";: GO S 
UB 39700 

3527 IF DIA1>=2 AND DIA1<=S THEN 
GO TO 39300 

3528 60 TO 3530 

9529 PRINT Ej"... (REC.) ";: G0 S 
UB 3700 


29530 IF DIA1=7? AND X22=A1+2 THEN 
GO TO 9532 

9531 60 TO 9533 

29532 PRINT E;"...(REC,) ";: G0 5 
UB 93700 

9533 IF X1<>B1+1 THEN GO TO 9544 
3534 IF CIAL>=2 AND DIA1<=5S THEN 
GO TO 9930 

29535 GO TO 353? 

9536 PRINT E;"...(REC.) ";: GO $S 
UB 9700 

29537? IF DIA1=? AND Al=D(61) THEN 
GO TO 9960 

3538 GO TO 9540 

3539 PRINT E;"...(REC.) ";: 60 $ 
UB 9700 

3544 NEXT YU 

3550 RETURN 

395600 REM *COMPROBACION FECHA: 
de DAT2<DAT1 THEN LET ERROR 
39502 1 DNTZ- DAT1>365 THEN LET E 
RROR= RETURN 

3605 LE Bl=2 THEN GO TO 964080 


2610 IF Al>D(B1) THEN LET ERROR= 

1: RETURN 

23620 LET ERROR=0 

35530 RETURN 

9635 LET x1=C1/y4 

39637 LET X2=INT (C1/4) 

25849 _IF xX1<>xX2 AND Al=29 THEN LE 

T ERROR=1: RETURN 

3649 IF A1=29 THEN LET ERROR=0: 

RETURN 

29650 IF RA1>283 THEN LET ERROR=1: 

RETURN 

2660 LET ERROR=0 

3670 RETURN 

37009 E OsS(ND;" DE "; 

2702 FOR Gz1 TO LEN (1$(0)) 

3704 LET XB=LG1J/6) 

9706 LET Y$=L$(J,G+1) 

3710 IF x$=" " AND YS=" " THEN G 

OQ TO 9740 

3720 PRINT X$, 

3730 NEXT G 

3740 PRINT 

3748 LET E=E+1 

9750 RETURN 

3300 DATA "ENERO" ,31,"FEBRERO",2 

S, "MARZO" 

2802 DATA 31," "ABRIL" ,30,"MAYO",S 

1." JUNIO" 

a DATA 30,"JULIO",31,"AGOSTO" 

1. 

dolia "SETIEMBRE" ,30,"OCTUBR 
¿3 

LE and "NOUTEMBRE",30,"DICIEM 

SN DATA "DOMINGO","LUNES","MAR 

9322 DATA "MIERCOLES" ,"JUEVES"," 

UTIERNES" 

29323 DATA "SABADO" 

$909 IF -2:A1+1 THEN GO TO 9529 

3910 GO TO 3530 

23930 IF A1=C1(B1) AND x2=1 THEN G 

ú TO 3536 

9940 0 TO 239537 

39560 IF x2=2 THEN GO TO 9539 

33970 60 TO 3540 

23999 SAVE *"M";1; "AGENDA" LINE 1 


Instrucciones 


Tal y como se ha mencionado al principio de este capítulo, una de 
las funciones del sistema es que la fecha se incrementa automática- 
mente de un día al siguiente. No obstante, esto sólo ocurrirá si la 
agenda se utiliza regulamente cada día. 
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Cada día, cuando se usa la agenda por vez primera, el usuario 
debe colocar el cartucho en el microdrive y pulsar NEW seguido de 
RUN. Será ejecutado entonces el programa DIARIO.2, incrementán- 
dose la fecha y apareciendo en la pantalla la imagen mostrada en la 
figura 9. 


FECHA DE HUY 


LUNES 
13 FEBRERO 
13995 


GRABANDO LA FECHA 


Fig. 9 


Después de un tiempo de unos dos minutos, durante el cual se 
ponen al día todos los archivos, el programa DIARIO.3 se carga auto- 
máticamente y aparece en pantalla el menú principal. 

Es muy importante recordar que al usar la secuencia NEW/RUN, 
el ordenador supone que ha pasado un día, por lo tanto, sólo debe ser 
usada una vez al día. Si la agenda se usa por segunda o tercera vez 
durante un mismo día, debe entrarse mediante la instrucción normal: 


LOAD **“m”;1;“AGENDA” 


Cuando se ha abierto la agenda, ya sea mediante LOAD * o indi- 
rectamente usando NEW/RUN, en la pantalla aparecerá el menú prin- 
cipal mostrado en la figura 10 y el usuario deberá escoger una de sus 
opciones. 


Mostrar las anotaciones de hoy 

Si el usuario selecciona la opción 1, el ordenador imprimirá todas 
las anotaciones del día en la pantalla, utilizando el formato que se 
muestra en la figura 11. Una vez hecha la consulta, puede volverse al 


menú principal pulsando ENTER. 
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« IMPRESION ANOTACION DE HOY 
. IMPRESION ANOTACIÓN FUTURA 
«HACER ANUTACION 


+. BORRAR ANOTACION 

«ENTRAR LIBRO CUMPLEANYOS 
«CAMBIAR LA FECHA 

«CERRAR AGENDA 


Fig. 10 


ANOTACION DE HOY 


LUNES 

18 FEBRERO 

1985 

j PRO con Pedro a las 15 h. 


Fig. 11 


Mostrar anotaciones futuras 


Esta función le permite consultar uno de los 365 (o 366) días pró- 
ximos pudiendo observar sus compromisos para este día. Para acce- 
der a esta información debe entrar la fecha deseada con el formato 
04/07/85. El ordenador calculará el día de la semana, cargará la infor- 
mación del archivo y la mostrará en pantalla (véase fig. 12). El tiempo 
de respuesta de esta función depende de la fecha pedida, pero no 
excederá de 15 segundos. 


Hacer una anotación 


Con esta función el usuario puede hacer una anotación en cual- 
quier día del próximo año. En primer lugar debe entrarse la fecha con 
el formato DD/MM/AA (D:día, M:mes, A:año). El ordenador lo verifica y 
calcula el día de la semana, mostrando la información en la pantalla. 
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3 - HURLEY 


ANOTACION FUTURA 


D IGO 
24 FEBRERO 
1995 


l.. a 3 pasear 


2...Visita a papa 


Fig. 12 


El usuario introduce sus anotaciones para esta fecha. Al término de la 
función, la información se graba en el cartucho y el ordenador vuelve a 
mostrar el menú principal. 


Borrar una anotación 


Funciona como la opción 3, con la excepción obvia de que las 
anotaciones son borradas en lugar de insertadas. Después de entrar 
la fecha, en pantalla se muestran todas las anotaciones para este día 
y se puede borrar cualquiera de ellas pulsando el número de anota- 
ción a eliminar. 


Entrar libro de cumpleaños 


Tal y como se muestra en la figura 13, el libro de cumpleaños es 
un programa independiente del principal y contiene todas las rutinas 
que se esperan de una rutina de manejo de archivos. 


LIBRO DE CUMPLEANYOS 
a==== 


23 SIZXIZSAAZSZ== 


: IMPRIMIR LIBRO COMPLETO 
« INTRODUCIR NUEVA FECHA 


*«BORRAR UNA ANOTACION 
«BUSCAR E IMPRIMIR FECHA 
«VOLVER A MENU PRINCIPAL 


Fig. 13 
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A pesar de haberlo llamado «libro de cumpleaños», está diseña- 
do para contener cumpleaños, aniversarios o cualquier otro aconteci- 
miento que tenga lugar el mismo día cada año. Las opciones de este 
programa son obvias y durante la ejecución se muestran al usuario 
instrucciones completas. No obstante, se hace hincapié en la opción 
1, en la que se imprime el libro completo y el usuario puede comprobar 
la información contenida en el libro. 


LISTRH COMPLETA 


S2a==z= === ==2= 


NOMBRE 


El archivo de cumpleaños es una parte integrada con la agenda, 
ya que la información de los eventos incluidos en el libro de cumplea- 
ños se muestra automáticamente al consultar un día con la agenda. 
Se da también un aviso al usuario unos días antes de producirse el 
suceso a fin de que puedan enviarse felicitaciones por correo. Se han 
tenido en cuenta los problemas derivados de la no recogida de correo 
los domingos. 


Cambio de fecha 


Si la agenda no se usa cada día, la fecha no se incrementará 
correctamente con la secuencia de autoejecución. La opción 6 permite 
en estos casos cambiar la fecha, a fin de que el ordenador ponga al 
día todos los archivos. 


Nota 


Esta opción no funcionará si la agenda no se usa durante un pe- 
ríodo superior a dos meses. 


Cerrar agenda 

Esta es la opción final y debe usarse al terminar la utilización de la 
agenda. El ordenador comprueba que todos los archivos queden 
puestos al día, regrabándolos si es necesario, y se para el sistema. 
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Conclusión 


Si se usa correctamente, o sea de acuerdo con las instrucciones 
dadas en este capítulo, este sistema provee al usuario de un útil pro- 
grama agenda electrónica que contiene una gran cantidad de informa- 
ción sobre los próximos 365 (o 366) días. Pero recuerde que el orde- 
nador es un elemento capaz de trasegar eficientemente la información 
y su utilidad real dependerá de los datos que se le introduzcan. 
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6. Grandes archivos de datos 


A pesar de estar usando un Spectrum de 48 K, no se dispone de 
48 kilobytes para los distintos archivos de datos, ya que una gran 
parte de la memoria está ocupada por el programa y el «espacio de 
trabajo» (un área de memoria utilizada para proceso de la información 
obtenida de los archivos). Puede ocurrir que queden libres unos pocos 
kilobytes para el almacenamiento de los archivos. Si sucede esto y, 
además, se requieren grandes archivos de datos, las técnicas estudia- 
das en los capítulos precedentes no serán útiles, porque no habrá 
suficiente espacio para cargar en memoria los archivos completos 
antes de proceder a su consulta. En estas circunstancias será necesa- 
rio extraer del cartucho solamente aquellos registros que se vayan a 
utilizar, evitando aquellos que sean superfluos en el momento de la 
consulta. 

La ventaja de este sistema es la accesibilidad a enormes bancos 
de datos que exceden en mucho la capacidad total de la máquina. No 
obstante, todo lo que se gana en capacidad se pierde en rapidez, ya 
que el proceso de acceder a un dato residente en un cartucho es 
mucho más largo que el de acceder a uno residente en la memoria 
principal. 

Las técnicas empleadas en el manejo de grandes bases de datos 
son muy conocidas y usadas en los grandes ordenadores utilizando 
una o, preferiblemente, dos unidades de disco. Para nosotros, las limi- 
taciones del sistema operativo de los microdrives y el hecho de que 
archivos no puedan ser reescritos (deben ser antes borrados), es 
causa de muchos problemas. Estos pueden solucionarse utilizando 
sofisticadas rutinas que se muestran en los próximos programas. 


Ejemplo 4 

El siguiente programa permite iniciar una base de datos de termi- 
nología de ordenadores, que puede ser manipulada por un segundo 
programa (véase el ejemplo 5). A pesar de que el archivo original es 
reducido, puede ser aumentado tanto como se desee, teniendo en 
cuenta la limitación de la capacidad física del cartucho de microdrive. 
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READ A$(1),B5$(1) 
NEXT I 


0 LET N$="1" 


OPEN 34; "M"; 1; "NUMERO" 
PRINT 24,N5$ 
CLOSE l4 
LET Y$="CBASE."+N$ 
¡1,Y$S 
FOR I=1 TO 10 
PRINT H4;A$(I1) 
PRINT 24;B$(]1) 
NEXT _I 
PRINT $4; "EOF' 
CLOSE 4 


p 
DATA "BINARIO" 
DATA "UN SISTEMA DE NUMERAC 


205 
ION EN BASE <" 


DATA “BIT" + “UN CARACTER BIN 


all "BYTE" ,"UN NUMERO DE 3 


DATA "CPU", "UNIDAD CENTRAL 
DATA _ "RAM" "MEMORIA DE ACCE 
DATA "ROM", "MEMORIA SOLO LE 


DATA "PROM" 
DATA "MEMORIA SOLO LECTURA, 


ABLE 
9 DATA "PUERTA", "ELEMENTO ELE 


DATA "ALGORITMO" 
DATA di PARA SOLUCIOÓNA 


Pp 
DATA "IMPRESORA" 
Ade "ELEMENTO PARA OBTENER 


Comentarios 
Líneas 14-36 Inicialización de variables. 
Líneas 44-60 Obtención de la información para la base de 


Línea 74 


datos a partir de las instrucciones DATA. 
Asignación de número para el archivo C.BASE 


Líneas 80-100 Escritura de un pequeño archivo para grabar el 


número del archivo C.BASE. 


Líneas 114-189 Escritura de archivo C.BASE en el cartucho. 


Ejemplo 5 


Este segundo programa permite consultar la base de datos de 
ordenador inicializada en el ejemplo 4. Se pide al usuario la entrada 
de los términos sobre los que quiere información. Se abre entonces la 
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base de datos, buscándose los términos requeridos e introduciéndo- 
los en la memoria. No se introducen en la memoria los que no se han 
pedido y, por lo tanto, se economiza mucha memoria. 

Una vez buscada, la información se imprime en la pantalla junta- 
mente con una lista de los términos que no han sido encontrados. Se 
pide entonces al usuario que los busque en otro sitio y los introduzca 
en el ordenador a fin de poner al día la base de datos. 

Es obvio que si este programa se usa frecuentemente, la base de 
datos excederá de la capacidad del Spectrum. No obstante, el sistema 
seguirá funcionando porque nunca se carga en el ordenador toda la 
base de datos, ni siquiera para hacer su actualización. 


p 
La] 
O0O0DOFOo 
HHHHHMO 
ZIIZZTA4AN 
NMOCODDD 
“anna. 
PereR=m 
tó 
Mr Ur 0 
“006060060 


so DIM 

30 PRINT TAB 2;"BASE DE DATOS 
CE ORDENADORES" 

100 PRINT TAB CT LN 22 232 
EX EXISTE 

1109 PRINT 

129 FOR I=1 TO 10 

139 INPUT TERMINO= "¡CH(I) 

140 IF C4(1,1 TO 3)="FIN" THEN 
G0 TO 130 
50 PRINT "TERMINO ";¡1;" = ";¡C$5$ 


160 LET I=I+1 

170 60 TO 130 

1509 CLS 

190 PRINT TAB <=;"BASE DE DATOS 
CE ORDENADORES" 

200 PRINT TAB 2; "SSI ER EXERZ 
== Sos ==o===' 

210 PRINT 

220 PRINT INVERSE 1; "CARGANDO E 
L ARCHIVO" 

230 PRINT 

240 OPEN 84; "MM"; 1; "NUMERO" 

250 INPUT $4;N54 

2609 CLOSE 4 

270 LET Y5="CBASE.'"+N5$ 

2530 

290 


a? Sel” “el” Vea? Sd” Ve 


OPEN 84; "M";1,Y$ 

LET J=1 
300 INPUT $4;A$(J) 
310 IF A6(J,1 TO 3)="EOF" THEN 
0 TO 390 


(J) 

359 FOR K=1 +0 1-1 

el EA THEN LET D$!( 
? 


mcmno 
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369 60 TO 300 
370 LET J=J+1 
390 


CLS 
410 1F J=I THEN LET PRUEBA=1 
420 LET C=1 

430 Era J=1 TG 1-1 


42409 LS 

450 ÍF D$S(J,1 TO 2)= " THEN — 
o TO S50 

460 PRINT TAB 2; "BASE DE DATOS 

DE ORDENADORES" 

470 PRINT TAB 2;"=zz== == ===== 
23 ESIIS======"” 

450 PRINT 

4390 PRINT "TERMINO = "¡C$(J) 
500 PRINT 

510 PRINT "DEFINICION" 

52080 PRINT ri 

530 PRINT PUE 

540 INPUT " ULSE -ENTER- PHRA 5S 
ESO NE $ 

550 NEXT 

S6u IF PRUEBA = 1 THEN STOP 

5708 CLS 


590 PRINT TAB 2; "BASE DE DATOS 
CE ORDENADORES" 


5980 PRINT TAB 2;"==== E 
"500 PRINT. 

610 PRINT "NO DISPONGO DE ESTA 
INFORMACIÓN." 


520 PRINT "POR FAVOR, BUSQUE LO 
630 PRINT "OTRO SITIO E INTRODU 


o PRINT "PULSE ”"; FLASMA 1;“EN 


545 'PRINT ",51 NO PUEDE HACERLO 


1-1 
=" " THEN GO SUB 


M 
7190 IF N$="1" THEN LET NS="2": 


720 LET N$="1" 

230 ERASE "M”";1; "“NUMBRO" 

740 OPEN 8H4,"M";1; "NUMERO" 

7350 PRINT 84;N$ 

760 CLOSE 4 

7270 LET U$="CBASE."+N$ 

750 OPEN 84, "M";1;Y5 

720 OPEN _ 845; "M";1;US 

300 INPUT n4;HS 

310 IF H$(1 TO S)="EOF" THEN G0 


3920 PRINT : INT 

930 ERASE "M";1;Y5S 

240 STOP 

1900 PRINT "TERMINO ";Cs5(J) 
19109 INPUT "DEFINICION: ";¡F$(S) 
1020 PRINT "DEFINICION: ";¡;FS$(S) 
1930 LET E$1(5S)=C$(J) 

1044 LET S=3+1 

19509 RETURN 


Comentarios 
Líneas 10-100 
Líneas 11-166 


Líneas 170-364 


Líneas 370-484 
Líneas 490-716 
Líneas 724-846 


Líneas 1400-1050 


Conclusión 


Inicialización de variables e impresión de título. 
El usuario entra hasta diez términos de los que 
desea información. 

El ordenador entra el número de código conteni- 
do en el archivo NUMERO y abre la base de 
datos, extrayendo la información requerida. 
Todos los términos que se han encontrado se im- 
primen en la pantalla con sus definiciones. 

El ordenador busca qué información está ausente 
de la base de datos. 

Se reescribe el archivo antiguo con un nuevo 
nombre y se añaden los nuevos registros al final. 
Subrutina en la que se pregunta al usuario defini- 
ciones para los términos nuevos. 


La técnica usada aquí y en el programa «diccionario» del capítulo 
7 es útil únicamente en el caso de que el problema principal sea la 
capacidad requerida de memoria. Si el factor tiempo es importante, es 
mejor transferir todo el archivo, o la mayor parte posible a la memoria 


principal. 
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7. Diccionario Inglés/Español 


Los dos programas de este capítulo están diseñados para crear y 
manejar una base de datos Inglés/Español. El sistema se inicializa 
mediante el programa DICCIO.1 en el que una serie de palabras ingle- 
sas y sus equivalentes españolas se leen de las instrucciones DATA y 
se graban en un cartucho con el nombre T.BASE. Después, usando el 
segundo programa, el usuario puede entrar una serie de palabras en 
Inglés o Español y el ordenador buscará su equivalente en el otro 
idioma. Si no encuentra la palabra solicitada, el ordenador le pide que 
la busque en otro sitio y que la introduzca para disponer de ella en otra 
ocasión. 

Es evidente que después de cierto uso, la base de datos será 
muy grande y, por lo tanto, se ha optado por utilizar las técnicas estu- 
diadas en el capítulo 6. 


DICCIO.1 


Este programa de inicialización debe ser introducido en el orde- 
nador, comprobado y grabado mediante la instrucción: 


SAVE **m”;1;“DICCIO.1” 


Listado 
28 CELS 
DIM A5(40,20) 

30 DIM B$(409,20) 
40 CLS 

e PRINT TAB 10; " INICIALIZACIO 
50 PRINT TAB 10," "zezmeuz=zz=zzuc=z= 
70 PRINT : PRINT 
S0 FOR I=1 TO 20 
30 RERD A5(1),B$(1) 
100 NEXT I 
110 LET NS="21" 
120 LET Ve" T.BASE"+NS 
130 OPEN H4;'"M"; 121; "NUMERO, 1" 
140 PRINT 34:N5 
150 CLOSE 4 

160 OPEN 84; “M'";,1¡YS 
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159 PRINT 384,A5$ 
1390 PRINT 44,B5 
ATL 


210 PRINT 84; "E0O 


179 FOR I=1 TO a 
( 


DATA "MEMORY", 


0 LI LA 0) Ly 0) ld La 0) TOTO POMO PO FO fo 
0 -4 8 0 E QU r? 6100 -J di cn E 0) 
6566660660 6560000566 

o 

D 

+4 

pr) 


a 
TI) 
ya 
F 


"LOVE", nt AMOR" 
DATA "MAN" z HOM 


BRE" 
"MEMORIA" 


“LEAD” y "MÚCHACHO" 
, , .". DAMA" 


DATA “"LAMP" . "LAMPARA" 
FIVE", "LIENCO” 

DATA "LAY" ."LEY" 

DATA “FLAG"."BANDERA" 

DATA "EGG", "HUEVO" 


DATA “DUCK”, "PATO" 
DATA "DUMP"., "DEPOSITO" 


DATA “OUR”, "NUESTRO" 
DATA "OUTSIDE", "EXTERIOR" 
DATA "PAPER", "PAPEL' 
390 DATA "PEACH";"MELOCOTON" 
400 DATA "PACK". "PAQUETE" 
410 DATA "PEN", "PLUMA" 
420 DATA "PENCIL"; “LAPIZ" 
430 DATA "ROPE"., "CUERDA" 


DICCIO.2 


Este programa es la parte del sistema destinada al manejo de la 
base de datos T.BASE, que se ha creado por DICCIO.1. Debe ser 
introducido cuidadosamente, comprobado y grabado con la instruc- 


ción: 
SAVE *“m”;1;“DICCIO.2” 


Listado 


BARRA ARA TT 
MULA Y 


m3 MMOCDOTDOS 
HHbBR-----z-= Pm 


PEZ 


J 
o 
DONOHODODODONTO 
pe-- 


DT Z DHHAHHHHMME 
HOOTUMIZIZIZ4+N 


NT TAB 10; "DICCIONARIO" 


75 


76 


150 PRINT TAB 10; "s=z=z=zzzm====" 
160 PRINT PRINT 
ds PRINT "1.... INGLES A ESPANY 
130 PRINT 
le PRINT "2....ESPANYOL A INGL 
200 INPUT "“SELECCION= " 
210 IF Ax1 OR R>2 THEN £0 TO 20 
220 60 TO (Ax*1000) 
1000 REM *INGLES-ESPANYOL + 
1010 CLS 
te PRINT TAB 8; "INGLES A ESPAN 
1930 PRINT TAB 3, "zz=zzx=z zx ==xxz=z 
1040 PRINT 
1050 LET Iz1 
1060 PRINT "INTRODUZCA PALABRAS 
EN INGLES." 
A PR INT "PULSE -99- PARA TERM 
1080 PRINT 
1090 PRINT INVERSE 1; "PALABRAS" 
1100 INPUT "PALABRA= "¡CásrI) 
1110 IF C$11,1 TO 2)="89" THEN 6 
a TO 1150 
1120 PRINT Il"... "¡C5(lI) 
1130 LET Iz=I+1 
1140 60 TU e 
1150 LET Vó6z="T dido ya rr. 
1160 OPEN BA "Mm"; Y 
11780 INPUT 84,556 
1180 IF S$(1 TO 3)="E0F'" THEN GO 
TO 1240 
1190 INPUT 34,T5 
1200 FOR JUz1 TO I-1 
1210 IF IS AND D$(J,l)=" " 
THEN GO TO 1780 
1220 NEXT 
1230 60 TO 1170 
1240 CLOSE 4 
1250 IF OzI THEN LET CHz=1 
1260 CLS 
it PRINT TAB 35; "INGLES R ESPAN 
1280 PRINT TAB 3, "ezxzuze=z = === 
===" 
1290 PRINT 
1300 FOR Jz=z1 TO I-1 
1310 IF 0D$(J,1 TO 2) =" " THEN 6 
0 TO 1350 
1320 PRINT "PALABRA: ";¡CA5lL(J) 
1330 PRINT "TRADUCCIÓN= ";¡D5$(J) 
1340 PRINT 
1350 NEXT Y 
1360 INPUT "PULSE -ENTER- PARA $5 
EGUIR";Z$4 
1370 IF CH=1 THEN GO TO 130 


CLS 
1390 PRINT TAB 3; "INGLES A ESPAN 


1400 PRINT TAB 8, "zzza2z== = === 
===" 
1410 PRINT 
1420 PRINT "NO DISPONGO DE ESTA 
INFORMACION; 

NT "POR FAVOR, BUSQUELA 
SR OTROS. 
1440 PRINT "MEDIOS E INTRODUZCAL 
1459 PRINT "PULSE "; FLASH 1; "EN 
1460 PRINT ", SI NO PUEDE HACERL 
Qro 
1470 PRINT 


1499 FOR J=1 ed 1-1 
> 0 
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1510 PRINT ERE RSEON 0 
1520 INPUT "TRADUCCIÓN= ";¡F$(S) 
1530 PRINT "TRADUCCION "¡F$(S) 
1540 PRINT 

1550 LET E$(S)=C5$H (J) 


15609 LET S=3+1 
1379 NEXT 1 
1550 A THEN G0 TO 35008 


T 
1700 LET D$(JY)=T%: LET G=0+1 


1718 60 TO 1170 

2000 REM *ESPANYOL INGLES + 

2019 CLS 

Lan PRINT TAB 3; "ESPANYOL A ING 
2050 PRINT TAB 9, "sz====== = zz 
2040 PRINT 

2050 


LET TEL 
2060 A li dad PALABRAS 
2070 PRINT “PULSE -99- PARA TERM 


INAR." 

2080 PRINT 

2090 PRINT INVERSE 1; "PALABRAS= 
2190 INPUT "PALABGRA= ";¡D3%4ItI) 
2110 IF 241,1 TO 2)="99" THEN 5 
Úó TO 2150 

2120 PRINT LL: "ss." iDSC1L) 

2130 LET I=-I+1 

2140 60 TO 2100 

2150 LET Ygs="T.BASE"+N5$ 

2160 OPEN $4; "M";1l;¡YS 

2179 INPUT R4:5$ 

21809 IF 5411 TO S)="EOF" THEN GU 
TO 2240 

2190 INPUT 84;T5 

22009 FOR J=1 TO I-1 
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O LF D O AND C6(J,1)= n 
EN 60 TO 270 

YB NEXT y 

0 GO TO 2170 

2240 CLOSE Hd 

2250 IF QO=1 THEN LET CH=1 


CL5S 
2270 PRINT TAB 8; "ESPANYOL A ING 
22509 PRINT TAB 38; "zz====z=2 z= === 


309 FOR J=1 TO I-1 
e2es10 IF C$(J,1 TO 2)= " THEN G 
a TO 2350 
320 PRINT "PALABRA= ";D$IiJ) 
PRINT "TRADUCCIOÓN= ";¡C$(J) 


INBUT” “PULSE -ENTER- PERRA 3 
2370 IF En=1 THEN GO TO 130 

2390 BRINT TAB 83; "ESPANYOL A ING 
24009 PRINT TAB 3, "===: 2 === 


=== 

2410 PRINT 

2429 PRINT “NO DISPONGO DE ESTA 
INFORMACION." 

2430 PRÍNT "POR FAVOR, BUSQUELA 
FOR OTROS" 

2ed49 PRINT "MEDIOS E INTRODUZCAL 


A. 
no PRINT "PULSE "; FLASH 1;"EN 


2468" PRINT ", SI NO PUEDE HACERL 


ONPUmur-J 


XT 
ed o THEN 60 TO 3000 
LET_ C$(J)=5$: LET Q0=0+1 

GO TO 2170 

REM ACTUALIZACIÓN DE DATOS 
PRINT 


yd INVERSE 1;'"GRABANDO E 


LET MS=N$ 
IF N$="1" THEN LET N$f="2": 


O 
E 


CU CIT LS CA GIO TORO PO O RO TOO PO O To 
66 668SJJ00O 

2 4 00 
6016006000000 60000 


P*PODuUrOr6 


G0 TO 3060 

3030 LET N$="1" 

3060 ERASE "M";1; "NUMERO. 1" 
3070 OPEN $84; "M"; 1; "NUMERO. 1" 
30590 PRINT 84:0N$ 

3090 CLOSE 4 


3100 LET Us="T.BRASE"+N$ 
31109 OPEN 84, qa: 1:;Y$ 
3120 OPEN 845; "M";1;U5s 
31309 INPUT 84;:3$ 

3140 IF 5411 TO 3)="EOF" THEN GU 
TO 3190 

3150 INPUT 344,T5 

3150 PRINT 8S;5$ 

3170 PRINT 8385,T$ 

31509 GU TO 3130 

3190 FOR J=1 TO rio 
3200 PRINT 85;ES$(.) 
3210 PRINT 85;F$(J) 
32209 NEXT 

3230 PRINT $5; "EOF" 


Instrucciones 


Ahora que se han introducido los dos programas, comprobados y 
grabados en el cartucho de Mmicrodrive, el sistema queda listo para ser 
usado. 


1.? etapa 


Primero cargue el programa DICCIO.1 mediante la instrucción 
normal y pulse RUN. Aparecerá en la pantalla la palabra INICIALIZA- 
CION y las veinte palabras Inglés/Español contenidas en las instruc- 
ciones DATA serán transferidas al cartucho y almacenadas en el ar- 
chivo T.BASE. 

Una vez realizada esta operación, se ha inicializado la base de 
datos y puede procederse a cargar el programa DICCIO.2. 


2.* etapa 
Cargue el programa DICCIO.2 y pulse RUN. El microdrive funcio- 
nará unos segundos y aparecerá en la pantalla el menú mostrado en 


la figura 15. 
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DICCIONARIO 


1.... INGLES A ESPANYOL 
2... ESPANYOL A INGLES 


Fig. 15 


Pulsando 1 o 2 (cualquier otra entrada será ignorada) dispondrá 
respectivamente del diccionario Inglé/Español o el Español/Inglés. Si 
pulsa el número 1, el usuario puede entrar hasta 20 palabras en Inglés 


(véase fig. 16). 


INGLES A ESPANYOL 


INTRODUZCA PALABRAS EN INGLES. 
PULSE -99- PARA TERMINAR. 


Lis. «LAD 


Fig. 16 


Al finalizar la sección del programa (al entrar “99”), el ordenador 
localiza la base de datos y extrae la información requerida, imprimién- 
dola en la pantalla en la forma que muestra la figura 17. 


INGLES A ESPANYOL 


PALABRA=_MAN 
TRADUCCIÓN= HOMBRE 


PALABRA= EGG 
TRADUCCIÓN= HUEVO 


PALABRA= LADY 
TRADUCCION= DAMA 


Fig. 17 
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Comparando los listados de las figuras 16 y 17, se observa que la 
palabra “fish” y su traducción no aparece en la figura 17. Esto es 
debido a que la palabra “fish” no ha sido introducida todavía en la 
base de datos. Siendo así, el ordenador solicita al usuario la localiza- 
ción de la traducción en otro sitio y su introducción mediante teclado. 
De esta forma la base de datos se va poniendo al día y resulta cada 
vez más útil (fig. 18). 


INGLES A ESPANYOL 


SEED YX EXNCERZESZZE 
NO DISPONGO DE ESTR Li bi 
R, BUS e OTRO 
u 


OR 


QUELA 
INTRODUZCALA . 
PULSE ENTER, SI NO EDE MACERLO 
ADOOS FISH 


TRADUCCION= PESCADO 


L 
P 


SRABANDO EL ARA TIN 


Fig. 18 


Nota 
La base de datos inicial es muy reducida, pero después de un uso 
prolongado del sistema puede resultar muy útil. 


81 


8. Lared 


Una red es un sistema que consta de varios ordenadores conec- 
tados entre sí, permitiendo que los datos y programas pasen de uno a 
otro. El ZX-Interface.1 permite conectar entre sí hasta 64 ordenadores 
Spectrum que pueden comunicarse a una velocidad de unos 3 K por 
segundo. Esto es más rápido que la comunicación a través de la cone- 
xión RS232, que tiene una velocidad máxima de 2.4 K por segundo. 

Un sistema de red es útil en una gran variedad de aplicaciones 
que van de la educación a los juegos multiusuario. Se puede usar 
también en el desarrollo de programas complejos, obteniendose un 
equipo de 96 K (con dos ordenadores conectados). Otro uso de la red 
es que puedan compartirse periféricos por varios ordenadores, mini- 
mizando el coste de utilización de impresoras, microdrives, etc., en 
grupos, clases o clubs de programación. 


Establecimiento de una red 


Es importante subrayar que la red Spectrum utiliza un sistema 
abierto, al contrario de la mayoría de los sistemas que utilizan la es- 
tructura en anillo o de lazo cerrado. 

La primera etapa para establecer una red es utilizar los cables 
suministrados con el ZX-Interface.1 para conectar los ordenadores de 
acuerdo con la figura 19. 


Fig. 19 


Nota 
Obsérvese que las máquinas de los extremos de la red disponen 
de una única conexión. 
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Una vez que los ordenadores están conectados, se les debe asig- 
nar un número de estación a cada uno utilizando la instrucción: 


FORMAT “N”;s 


donde N es el especificador de canal y s el número de estación, entre 
1 y 64. Después de esto, todas las estaciones son operativas y puede 
empezar la comunicación. 


Programas 


Considérese que la red se ha creado tal y como se muestra en la 
figura 19 y cada ordenador ha sido numerado con la adecuada instruc- 
ción FORMAT. 

Si el usuario de la máquina 1 desea enviar un programa a la má- 
quina 2, debe hacerse lo siguiente: 


1) El usuario 2 entra: 
LOAD **“n”;1 

2) El usuario 1 entra: 
SAVE *“n”;2 


Hecho esto, los bordes de pantalla de los dos ordenadores parpa- 
dearán como indicación de que el programa se está transmitiendo. 


Nota 

Al enviar o recibir programas mediante la red, se pueden utilizar 
también las instrucciones: MERGE **“n” y VERIFY *“n”; así como las 
variaciones: CODE, DATA y SCREENS. 


Archivos de datos 


Considérese la misma red de máquinas y un archivo llamado 
PRUEBA que contiene una serie de nombres y números y que debe 
ser transferido de la estación 1 a la 2. Suponiendo que ambas estacio- 
nes han sido correctamente asignadas, esto se puede conseguir con 
las instrucciones: 

OPEN FN;*“n”;x 
PRINT Xx 
INPUT Hx 


tal y como se ilustra con las rutinas siguientes. 
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Receptor 


) 
3)="EOF" THEN 


E] 

=I+1 

1968 60 TO 1020 
1070 CLOSE 4 


Transmisor 
O Pon ed A 
1110 FOR J=1'T1O I 
1124 PRINT $4;,A$(J) 
1130 PRINT 14;A(J) 
1148 NEXT Y 
1150 PRINT H4,"E0F" 
1160 CLOSE 4 

Nota 


La observación atenta de estos ejemplos revela los siguientes 
puntos: 


1) Las rutinas son muy similares a las usadas para enviar o reci- 
bir datos de un microdrive. 

2) No se especifica el nombre del archivo, ya que solamente se 
considera el archivo que se está transmitiendo, siendo total- 
mente innecesaria ninguna búsqueda. 

3) En la instrucción OPEN % no se menciona si el archivo debe 
ser leído o escrito. Esta decisión se toma automáticamente 
cuando el ordenador encuentra la primera instrucción PRINT 
+ O INPUT +. 


Sincronización 


A pesar de que no es necesario sincronizar las máquinas conec- 
tadas en una red, desde el punto de vista del usuario es preferible que 
las máquinas lleguen a la rutina de comunicación aproximadamente al 
mismo tiempo. De esta forma se reduce el tiempo en que las CPU 
permanecen inactivas. 

La siguiente rutina muestra cómo se puede utilizar la instrucción 
INKEYS$ 4 para comprobar si una corriente de la red está lista para la 
comunicación. Si no fuera así, el programa vuelve al bucle principal 
para seguir el proceso. 
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LOSE 84: RET 


Para que esta rutina funcione, la estación transmisora debe en- 
viar un valor «falso» antes del archivo de datos real. Por ejemplo: 


1198 BREN 44, Un"; 
PRINT 84; "F 
1320 FOR J=1 TO 
13309 PRINT 24,AS 
1340 PRINT 84;A( 
1350 NEXT_J 
1360 PRINT RH4,"E0OF" 
13709 CLOSE Há 


Emisión 


Cuando los datos se transmiten de una estación a otra, se utiliza 
el principio del acuerdo. Si la estación receptora no puede aceptar los 
datos, la transmisora esperará a que pueda aceptarlos, a fin de que no 
se pierdan. 

No obstante, en ciertas ocasiones, una máquina transmite un pro- 
grama destinado a todas las estaciones que en este momento estén 
listas para recibirlo. Esto puede conseguirse dando a la estación emi- 
sora el número /. Esta identificación la usan tanto la estación emisora: 
SAVE *“n”;Á como las receptoras: LOAD *“n”;/. 


Aventura 


El programa AVENTURA que se presenta a continuación se ha 
diseñado como un programa de diversión y a la vez de formación. 
Muestra el uso de una red para un juego multiusuario. 


El escenario 


Pueden participar hasta 63 jugadores, a los cuales se les asigna 
la tarea de buscar el Cetro de Oro y devolverlo a su lugar en la cámara 
principal. 

Al comienzo de la partida, todos los participantes están situados 
en el mismo punto, desde el cual pueden moverse libremente. Duran- 
te sus viajes encontrarán todo tipo de objetos y armas que pueden 
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recoger y utilizar en su aventura, existiendo una sola limitación: ningún 
aventurero puede llevar más de cinco objetos al mismo tiempo. Duran- 
te su travesía, los jugadores pueden encontrarse con monstruos, a los 
que deben atacar; también pueden encontrarse con sus compañeros 
de juego, que tratan desesperadamente de conseguir su objetivo en 
primer lugar. Si durante el juego uno de los aventureros muere, sus 
posesiones quedan donde ha muerto y el juego sigue para los demás 
participantes. La partida continúa hasta que algún aventurero consi- 
gue su objetivo o hasta que mueren todos los participantes. 


Listado 


1 BORDER 0: PAPER QU: INK 6: C 
2 


LS 

as a "Cuantos jugadores | 
-E ¿ lt. 

3 LP ho<2 OR no>63 THEN GO TO 


4 PRINT AT 5,0," Indique a los 
demas jugadores” 
S PRINT RT Pa nos escriban: 
FOTMAT '. A y DES 1... 
6 PRINT FLASH Lio 
7? PRINT *'"Donde “7?” es numero 
de jugador" 
8 PRINT '"Este ordenador es e 
L numero 1” 
9 PRINT “"El turno de juego 
endra este” 
10 PRINT "orden" 
11 PRINT **"Pulse una tecla cu 
ando hayan" 
12 PRINT “"hecho lo indicado 
13 PAUSE 0: CLS 
14 PRINT AT 5,0;"Ahora indique 


les que escriban" 

á e PRINT AT 7,0," LOAD *""n"":; 
16' PRINT "LOAD x"'"n"";¡08Cc0oDE " 
17 PRINT '"u pulse una tecla Cc 

vando hayan" 

15 PRINT “"terminado” 
19 PRUSE 4: CLS 
20 DIM s$ino,10): FOR n=1 TO n 

0 
21l INPUT "Nombre jugador "; In) 

AI OUEN SN) 

22 NEXT n 

23 DEF FN a()=PEERKR 237439 

24 DIM a$1(93+no0:+*7) 

25 RESTORE 9990: FOR n=1 TO 20 

: READ v: LET a$(n)=CHRS [v+ (v=0 

3% CIOFRRAND+1)): NEXT n 
26 FOR n=21 TO 860 STEP 2: LET 

a$(n)=CHR$ (RND*20+1): LET as$in+> 

1) =CHR%$% ¡RNCx70+30): NEXT n 
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27 LET a5$1(61)3=CHRS Q 

28 FOR n=394 TO LEN af$ STEP ?: 
LET as$1in)=CHRS$ 1: LET as$ (1inm+1)=CH 
F$ S0: FOR mezn+= TO n+6: LET asg$( 
m3 =CHRA$ 0: NEXT m: NEXT n 

S DEF FN b$(3.b,C.d)=CHR5S a+C 
HR$ b+CHR$ Cc+CHRSE y 

30 RESTORE 3900: DIM p4(20,36) 
DE FOR n=1 TO 20: READ px1m): 

n 

31 RESTORE 9940: DIM o5$(20,11) 
Es FOR n=1 TO 20: READ os$ (nm): NEX 

n 
E FN p()=CODE a$194+([FN a 

-1)% 


o DEF FN d(n)=CODE ps(FN pí), 
n 

34 DEF FN d$ (n)=(“norte" AND n 
=1)+("este" AND Nnz=2)+("sur” AND 
n=31+("0e5te” AND Nn=4) 
( “un” AND os$ (mn 
D A 


ODE as (94+(ínm-1 


*s7 RESTORE 9950: DIM m$120,10) 
POB n=z1 TO 20: READ NG (MN): NEX 


36 DEF FN 7z1(3)=94+7* (FN a() -1) 
39 LET ch=0: RESTORE 40: FOR n 
sr TO 64913: ais ol Vi LE ¿hs 


40 DATA 33,140,92,54,255,201 
41 RESTORE 42: FOR n=65129 To 


n 
¿de 
+" ” AND E 


65176: READ v: LET ch=sch+v: POKE 
n,Y4: NEXT n 

42 DATA 255,243,187, 213. ¿229 24 
5,1,254,127,237,120,254,252,40.9 
,205,144,253,241,225,209, 19 s4 251 
,201,62,55,50,141,92,205,107,13, 
1,254,127,237,120,254,127,237,12 
0,254,252,40,247,251,207,2 

43 RESTÓORE 44: FOR n=865180 TO 
65186: READ v: LET ch=ch+v: POKE 
nv: NEXT nm 

44 DATA 62,9,237,71,237,94,201 


45 RESTORE 46: FÓR n:65190 TO 
565196: REAC v: LET ch=ch+w: POKE 


: xT on 
A 48 DATA 62,62,237,86,237,71.,20 


47 IF ch<>10714 THEN CLS : PRI 
NT FLASH 1;AT 18.3; "ERROR EN COD 
IGO MAQUINA"; AT 12, 0; "COMPRUEBE 
LAS INSTRUCCIONES DATA" ¡AT 14,4; 
"DE LA LINEA 48 A LA 46": STOP 

48 DEF FN e Ecobe as 192+(nm-1 
1741) 

98 SAVE *"n";0 LINE 100 

39 SAVE *"n"¡0CODE 64913,285 
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100 LET zZz2Z=USR 65184: FOR Z=1 


105 LET rr=:0: FOR rz=1 TO no: LE 
T rrsr rs (EN r(ir)<>0): NEXT r: IF 

rr=z08 THEN GO TO 35500 

110 IF FN a()=Z THEN GO SUB 100 
0: GO SUB 7ua 

120 IF FN at)<>z THEN GO 5UB 50 


1309 NEXT z 

140 60 TO 100 

500 LET a$(62 TO 93)="NO0 ocurre 
nada importante" 


05S OPEN 4, 'n";0 

S10 INPUT Y4,as 

520 CLOSE 4 

530 PRINT 'a$1(62 TO 393) 
540 RETURN 

700 OPEN 84;'n";0 

710 PRINT 4;as$ 

720 CLOSE H4 


N 
1000 IF a$(FN 71) +1)=CHR$ 0 THEN 
RETURN 
1002 LET o=3: 60 SUB 1610: IF FN 
pij=1 AND q THEN LET a$(61)=CHR 


$ FN a(): GO TO 3000 

1003 IF CODE a$1(61) THEN PRINT “ 

S4íCODE a$(61));" ha recuperado 

el"c?"cetro de oro": INK 6: PAPE 

R 2: G0 TO 3518 

1005 PRINT '"sszc=zzcrcrrzre=szezzzz=m=zz 
cuorzez=z=x===""""ES su turno ";s 
$LFN a(t1) 

10189 GO SUB 9000 

1015 FOR u=21 TO 60 STEP 2: IF C 

ODE a$(w)=FN p() AND RND<.S THEN 
LET n=wW: 60 SUB SU00 

1017 IF as$(FN 2Z() +1) =CHRS$ 0 THEN 
RETURN 

1915 NEXT 

1829 PRINT “"Que quiere hacer 72" 
: PRINT 

10530 LET Q%=INKEYS5 

1040 IF qa4$<"a" OR q6>'"z" THEN GO 
TO 1038 

1047? IF q$="p" THEN RETURN 

1059 IF q%$="n" THEN LET d=1: 60 
SUB 1500: RETURN 

1955 IF 3%="c" THEN GO SUB 3500: 
RETURN 

1056 IF a%$="b" THEN 60 SUB 37060: 
RETURN 

19057? IF 3$="'" THEN GO SUB 38060: 
RETURN , 


1060 IF q$="e" THEN LET d=2: GO 
1070 IF qs$="s" THEN LET d=3: 50 
1080 IF 21%="0" THEN LET d=4: 60 


SUB 1500: RETURN 
1099 IF q4$="r" THEN GU SUB 2000: 


1095 IF q%="!1" OR q6="i" THEN GO 
SUB 3000: RETURN 
1100 IF q%="t" THEN GO SUB 25008: 


1110 IF q%4="a" THEN GO SUB 4000: 


30 
1500 GO TO 160908 
1502 IF NOT FN d(d) THEN PRINT “ 
"La ruta hacia el" ¡FN d$(d);" es 
ta bloqueada": RETURN 
1505 LET a$ FN Z(1)=CHRS FN díidi 
a PRINT "Va hacia el" ¡FN d5(l 
1520 LET a5$(62 TO 93) =sS5(FN al)) 

+" va hacia el "+FN d$(d) 


1530 RETURN 
15600 LET p=FN pl) 
1505 60 TO 1620 


1619 LET 9=0: LET a=FN z(14+2: FO 

R y=a TO a+4: LET q=23+ (CODE as$(íuy 

)=0)1: NEXT Y 

15615 RETURN 

15620 RESTORE 1690: FOR o=5 TO 10 

1630 READ PP. .dd 

16440 60 SUB 1610 

1642 IF 9=0 AND Pp=pp AND dzdd TH 
GO TO 1699 

1645 IF 9:<>0 AND p=pPp AND d=dd T 

HEN GO TO 1502 

1650 NEXT O 

16809 60 TO 


1502 
1690 DATA 4,3,4,4,7,3,12,3,16,2, 


15,3 

1699 PRINT "No puede tomar esta 
ruta aun !!”": RETURN 

2008 60 TO 2200 

2005 _LET_928: PRINT “"Elecciones 

2010 FOR n=1 TO 20 

2920 IF CODE a$(nm)=FN p() THEN P 


RINT n;") "¡;FN o$1n);" "¡¿o$(n.,2 
+01 LEF.qsi 


2049 IF q9=0 THEN PRINT “"0) Nada 
": PRINT qe hay nada para coge 


2050 PRINT “"Qque Quiere coger Ci 
2060 INPUT "Seleccion: ";0o 
o IF 0<1 OR 0>20 THEN 60 TO 2 


2050 IF CODE ag$io)<>FN p() THEN 

PRINT *"Esto no esta aqui": GO T 
a 20650 

2094 PRINT *"Toma "¡FN o$lto3;" " 
¡o$(0,2 TO 1) 

2095 IF 0=3 THEN CLS : FOR yu=1 T 
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0 16: PRINT AT 10,6+4; FLASH 1; 
PAPER RND+3; INK RND*3+4; "FELICI 
DADES!" (Y): BEEP_.008,RND*40: NE 
XT y: PAUSE SO: PRINT “"Ha encon 
trado el cetro."“*"mAhora todo Lo 
ue 2550 hacer es" "volver con 
el": PAUSE 200 
2100 LET 35:62 TO 99) 558 (FN 20) 
+" toma “"+FN o$io)+" "+og$(o, TO 


LET a=FN z1()+2: LET qq=0 


Ol 
GO PO MrGSdamunr 


Pr pen THEN PRINT_ “"No pue 
ar nada mas": RETURN 


24005 
T q=0: PRINT “"Elecciones 


foto dolo > foto fo fo fo la 


nz3 TO a+4 

(n) <oCHR4 0 THEN PRINT 
¡"Y "“¡FN oO$(CODE asin 
ODE a$1in),2 TO ): LET 


HYATT OWHA 


FO fu Ti + 


N- 0-0 000 OO lo: 


023 -4— 001 


09066- 60-GO6rOGOGaOS 
Ps 
m 
x 
— 


AED 


nr 


+ Tuño 
DUIP 11 >> 


o tiene nada para tir 


1 
PUT "Seleccion: "jo: IF O 
220 THEN GO TO 25585 


2700 
LET a$ (CODE as$(n))=CHRS FN 
"¡FN O$(CODE a 


$(n),2 TO ) 
3)=S$(FN a()7 
y 


4 
Cc 
n 
AN THEN PRINT "0) Nada" 
N 


01) 


e 
- 
- 
- 


a$in))+" "+ 


O» 


UZANDOO20*- 
=3Z-b > 


IF CODE a54( 


Cy tu 


E No 4 


Hd — Di UA 


13) 
G0*0>ZWr1GC"1COO0- 


ha cogido": R 


: LET azFN zZ1()+2: PR 
pl a: NT 

TO a+ 
ICAA a THEN PRINT 
a$in)3;" "¡oOs$ICODE a 


pa 
- NOFM DMIOMMMO Mm 


E 


COMU MOVO + 0er OO Mi. fu 
SO 6000666 GC DOG 
DA HXAMDAA 


THEN PRINT "nada" 


¡OISIATOS: DTO 
nGo0S- T1TOGZ 
G60Ga— 


3510 LET q:=0: FOR nz3 TO a+d: IF 
a3$(n)=CHR$ 1 OR a5$(nm)=CHRAS 2 OR 
_3$(n)<CHR$_ 15 OR_a$ (n)=CHRS 16 

OR a$(n)=CHR% 17% THEN LET qn 

3520 NEXT n 

3530 IF 23=:0 ESOO FRINT “No tien 

e comida": RETU 

PRES PRINT CONE y se hace mas 
ver 

3545 LET 34162 TO 93)=SGH5(FN aíl)1 
+" come un poco" 

3550 LET a$1(9)=CHR$ Q 

5560 LET a5$(FN 27 () +1) =CHR$ (CODE 
a$1FN 21) +1) +20) 

3570 RETURN 

3700 LET a=FN Z1()4+2 

3710 LET 3:0: FOR n=3 TO a+4: IF 
SS 4 OR as$ ini =CHRA 18 0 

RE a$í =CHR$ 19 OR a$ (nm) =CHR$ 20 
THÉN. LET q=n 


3720 NEXT n 
3730 IF 9=0 THEN PRINT “"No tien 
e vina": RETURN 

o '"Bebe YU se hace mas 
Fuey >" 


3745 LET as$162 TO 93)=S4(FN a()) 

+" bebe un poco" 

3750 LET a3$(9)=CHR$4 Y 

3764 LET as$1(FN Z() +1) =CHR4 (CODE 
I$IFN 21) +1) +10) 

377080 RETURN 

33900 PRINT “"Descansa y recupera 
sus fue E 

35310 LET a$[FN_zZ()+1)=CHR$ (CODE 
a$5(FN zZ1()4+1) +2) 

3320 RETURN 

4000 PRINT “"Elecciones: ": PRIMN 

To: LET q=8 

4010 FOR i¡iz:21 TO 50 STEP 2 

4020 IF CODE a$1i)=FN pj) THEN L 

ET q=1: PRINT (i-19)/2,"1 el “";m 

$((i -19) 2) 

40380 NEXT i 

4040 IF q=0 THEN PRINT "0) Nada" 

PRINT “""Aqui no hay monstruos” 
RETURN 


4050 INPUT "Seleccion: " 
NS IF m<í1l OR m>20 THEN? 30 TO 4 


4070 IF CODE a354((mx2) +19) <>FN p( 
J) THEN PRINT “"No esta aqui": RE 
TURN 

405809 LET n=n 

4090 PRINT “*"Ataca E “"om$ tn) 
4500 LET nn=1(nx*r2)+1 

4510 LET mhp=CODE Ud 

4515 PAUSE 50 

4520 LET Hp=CODE as(FN zZ1(1+1) 
4525 LET r=RND 

4530 IF r>.5 AND mhp>hp THEN BEE 
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P..3,20: LET a$1862 TO 93) =m5$ (nn) + 
" derrota a "+s5(FN a()3): PRINT 
m$in);'" le gana a Ud.": LET hp=h 
P-(1(1:/5S) ¿MAP): IF hp<x=0 THEN GO 
TO 4700 

4535 IF r<z.S AND Mhp>hp THEN PR 
INT "Ud. gana a "¿ms4sfn): LET as( 
62 TO 93)=s5(FN a(J))+" tiene sue 
rte”: RETURN 

4540 IF mhp=hp THEN PRINT *"La 
ucha termina en empate": LET AY 
62 TO 93)="Hay una lucha, pero i 
3gualada": RETURN 

4550 IF r>.5S AND mhp<hp THEN BEE 
P.,3,0: LET a$162 TO 93)=s4(FN a 
(031+" derrota a "+m$lin): PRINT “ 
Ud. ón a "¿ims$in): LET mhp=mhp- 
A Ed: LF mhp<z 0 THEN 60 TO 
4555 IF r:iz=,S AND mhp<hp THEN PR 
INT 'ms$fín);" le gana": LET as$162 
TO o gana a "+ss$íFN a 
(13: RETURN 

45560 LET as$inn+1)=CHR5 mhp 

4570 LET as$/(FN 2 (3) +1) =CHR% hp 
4530 RETURN 

4700 PRINT “"Ud. ha muerto" 

4710 LET a$(62 TO 


Cc 
+ 
3 
93) =s4 (FN aí)) 
2 
4 


+590 PRINT “"El monstruo ha muer 
HS 


4310 LET a$162 TO 93)1=sG5(FN aí()) 
+" mata a "*ms$(n1 

4820 LET as$iínn)<CHR$ Ya 

4330 RETURN 

5000 LET n=INT (in-139) 21 

5010 PRINT 'm$1n);" le ataca" 
S020 60 TO 4500 

5000 PAPER 6: INE 2: BORDER 6: C 


5010 PRINT “*"Ud. ha completado s 
busqueda" 
350209 PRINT “"Ud. es superintelig 


so2s ASE 100 

35030 CLS 

3040 PORE 3659,0 

5050 DRINTE “Felicidades 
35060 BEEP .08,RNC:x5a 
3078 60 TO 3050 


LI 


3400 STOP 
3500 BORDER 2: PAPER 2: INK 5: € 
LS : PRINT "Ud. ha muerto"*“"El 


juego ha terminado" 


0 FOR n=0 TO Sa: BEEF .005,M: 
EP .¿005,S50-m: NEXT n 

0 FLASH 1: CELS p y 
0 PRINT AT 10,10, INUERSE 1; 
LA SUERTE! " 

35535 PORKE 23659,0 

5540 BORDER 6: BORDER 2: GO TO 3 


5600 STOF 

o "Ud. esta "¡pgIFN pl 

, 

2010 PRINT “"Puede salir por: " 
INT 


2015 PR 

30209 FOR n=1 TO 

ol 8 FN 6 THEN FRINT FN 

ñ 

2044 NEXT n 

20508 PRINT “*“"Ud. ve:' 

2055 PRINT : LET 3=0 

2860 FOR n= 1 TO 24 

3074 IF CODE as$in)=FN pil THEN P 

RINT FN o0o61m3," “¡¿os$(n,2 TO ): L 

ET 41 

2054 NEXT n 

3090 FOR n=1 TO no 

3100 IF FN s(1n)=FN p() AND n<>EN 
3() THEN PRINT s51n) LET q=1 
3110 NEXT n 

$120 FOR n=21 TO 564 STEP 2 

391530 IF CODE a3$1n)=FN p() THEN P 
RINT m$1t(ín-19) /2) LET q= 

39148 NEXT n 

3150 IF 3:0 THEN PRINT "nada" 
23160 RETURN 


2900 DATA FN b$1(0,0,2,0)+"en la 
cueva principal" 

29901 DATA FN b$(1,3,5,4)+'"donde 

se separan los re Moa 

3902 DATA FN BGIO, ,6,2)+"en una 
cueva pequena" 

24903 DATA FN NOS 2,9,7)+"cerca 

de una campan 

23904 DATA FN É$12,0,0,9)+"en el 

pasaje secreto" 

2905 DATA FN b$10,3,13,14)+"en L 

3 oscura celda del gigante" 

3306 DATA FN b5$(04,4,8,1)+"en un 
borde de piedra" 

39907 DATA FN b5(7?,0,12,11)+"al b 

orde del precipicio" 

2492908 DATA FN b$(4,5,10,0)+"en La 
caverna del troll" 

2994939 DATA FN b$4(9, 13, Y,0)+"en la 
tela de la aranya" 

29310 DATA FN ler 383,17,0)+"en un 
espacio abiert 

2939311 DATA FN DELS, 0,15.01+" "en un 
pantano neblinoso" 

3912 DATA FN b5$(0,0,14,6)+"en un 
paso estrecho" 
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39913 DATA FN b$(13,1,1,6)+"bajo 
una catarata" 

3914 DATA FN b$(12,10,16,0)+"en 
un maloliente pantano" 

3915 DATA FN b$(15,240,19.,0)+"en 
una escalera" 


9916 DATA FN b$(11, 15, 19,18) +"en 
un antiguo almacen 
39917 DATA FN b$18,17, Q4,0)1+"debaj 
o de una roca transparente" 
9915 DATA FN b$117,0,0,0)+"cerca 
de un riachuelo oscuro" 
3919 DATA b$(06,0,0,16)+"en la 
GRAN CAMARA" 
29940 DATA "scomida",'"scomida",'m 
cetro", "svino",'"mhacha",'"fcuerda 
" "mescuda”","fllave" ,'"mcasco”","f 
spada","fllave","mhacha","fcapa 
" "fvasilla","“scomida","scomida" 
»"scomida”","svino”","svino","svin 
o” 
29959 DATA "goblin","lobo","3houl 
" "dragon", "gigante","aranua","b 
estia","malo","hormiga",'" "vampiro 
COBROS" ULFOLU", “es corpion”,"s 
erpiente" , "30orgon" 3 "medusa" , "ser 
piente”" "dinosaurio", "mono",'gob 
lin" ,"aranya" 
29390 DATA 4,0,20,0,14,13,10,13,1 
9, 12,0,0,0,0,0,0,0,0, 

Instrucciones 


Todas las instrucciones están contenidas en el propio programa y 
deben seguirse al pie de la letra. Durante el juego, todas las decisio- 
nes de los participantes se entran en una sola tecla, de acuerdo con el 
listado siguiente: 


Este 

Norte 

Sur 

Oeste 

Recoger objeto 
Tirar objeto 
Pasar 

Listado de posesiones 
Atacar monstruo 
Beber 

Comer 
Descansar 


e 
n 
S 
O 
r 
t 

p 
| 

a 
b 
C 
d 
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9. El interface RS232 


El ZX-Interface.1 incorpora un interface RS232, que permite una 
comunicación serie normalizada con varios tipos de periféricos, tales 
como impresoras, terminales o modems (moduladores/demodulado- 
res). La velocidad a la que tiene lugar tal comunicación depende del 
periférico que se use y puede ser escogida mediante el teclado entre 
las velocidades de transmisión normalizadas que se listan a continua- 
ción: 


Baudios 


50 100 
600 


2400 


9600 


Nota 

1 baudio = 1 bit/segundo. Es importante no confundir bits y bytes 
(recuerde que 1 byte = 8 bits). Por lo tanto, transmitir 16 K a 600 
baudios requerirá 1024 x 8 x 16 = 600 segundos (o sea = 218.45 
segundos). Además de la adecuada velocidad de transmisión, cada 
periférico requiere un cierto formato para los datos transmitidos. El 
ZX-Inteface.1 utiliza: 8 bits, sin paridad, 1 stop bit. Cuando se conecte 
un terminal al interface, deben tenerse en cuenta estas característi- 
cas, efectuando los ajustes necesarios. 


Instrucciones 


La figura 20 muestra las instrucciones a usar con el interface 
RS232. 
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FORMAT "t";BAUDS 
FORMAT "b";BAUDS 
OPEN 83,"t" 
OPEN 8n,"b" 


PRINT 4n; 
LPRINT 
LLIST 


Fig. 20 


A continuación se analizan cada uno de estos términos, conside- 
rando su método de entrada, su utilidad y las variaciones aplicables. 


FORMAT “t”;¡BAUDIOS / FORMAT “b”; BAUDIOS 

Antes de que pueda utilizarse el interface RS323, debe definirse 
la velocidad de transmisión, usando la instrucción FORMAT con el 
especificador de canal “t” o “b”. 

OPEN 43;“t” 

Con ésta se abre la corriente 3 para el canal t del interface 
RS232. Se podría utilizar cualquier otro número de corriente (de 3 a 
15), pero es preferible utilizar el 3 por razones que se indicarán pos- 
teriormente. 

OPEN +n;“b” 

Se abre la corriente n para el canal b del interface RS232. En este 
caso no hay ventajas concretas por la utilización de cierto número de 
corriente. 

PRINT 4n 

Cuando se ha especificado la velocidad de transmisión y se ha 

abierto una corriente, la información puede enviarse al periférico con 


la instrucción PRINT 4. 
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LPRINT 


Si se ha abierto la corriente +3 para el canal t, la información 
puede ser enviada al periférico utilizando la instrucción LPRINT en 
lugar de PRINT +3. Con ello se reduce el número de pulsaciones 
requeridas para entrar una línea y se ocupa menos memoria. 


LLIST 


Al igual que la instrucción anterior, se puede utilizar en lugar de 
LIST 43. 


Los dos canales 


Observando las últimas instrucciones vemos que el interface 
RS232 utiliza dos canales: t y b. 


El canal t 

El canal t, o de texto, se usa para enviar listados a una impresora 
O para producir una copia de la ejecución de un programa. En este 
modo de funcionamiento ciertos códigos de control no se envían. 


Caracteres /-12 Códigos de control que se ignoran. 

Carácter 13 Retorno de carro. Se envía orden de nueva 
línea. 

Caracteres 14-31 Códigos de control que se ignoran. 


Caracteres 32-127 Códigos ASCII enviados normalmente. 

Caracteres 128-164 Caracteres gráficos enviados como «?» (Códi- 
go 63). 

Caracteres 165-255 Palabras clave expandidas en forma ASCII. 


El canal b 

El canal b, o binario, envía el código completo de 8 bits que usa el 
Spectrum. Es muy útil porque permite enviar códigos de control a los 
periféricos. 


Códigos de control 


Si se utiliza la impresora-trazador Tandy, para ordenarle el paso 
de modo texto a modo gráficos se requiere enviar el código CHR$18. 
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4 - HURLEY 


Si se utilizara la rutina: 


14 FORMAT “t”:609 
24 OPEN 43;“t” 
34 PRINT 4+3;CHR$18 


se ignoraría el código de control CHR$18 ya que está dentro del inter- 
valo 14 a 31 (códigos de control). 
Para no tener este problema se puede usar el canal b: 


10 FORMAT “b”:609 
24 OPEN 44;“b” 
30 PRINT 4+4;CHR$18 


con lo que se enviaría el código correcto. 
Ejemplo 
El siguiente programa utiliza la impresora-trazador Tandy para 


editar un gráfico en forma de tarta. Demuestra cómo se pueden usar 
en un mismo programa los canales t y b simultáneamente. 


Listado 


6506 


n 

5 
GOFPOo0O0o0dO 
PMA AA HAHAHA 
CATILEZAS 


100 PRINT TAB 3; eses co==m=! 
110 INPUT “TITULO= po 

120 INPUT "RADIO= ”; 

134 INPUT "NUMERO DE ELEMENTO S= 


1449 LET M=u 

150 LET A$=CHR$ 10 

15623 60 SUB 1090 

170 FORMAT "b";5600 

1350 LET CC=0 

190 FORMAT "b";6Uum49 

200 OPEN 83," 1" 

210 OPEN 44, 'b" 

20 LPRINT T5 

0 PRINT $4.,A$5 

0 PRINT 44;CHR$ 13 

0 LPRINT "M0O.,-120,120,-120" 
Ya LPRINT "I" 

0 60 SUB 460 

0 LPRINT "M1390,0,130."; (N-1) < 


GUI MOTO Fa O TO TON 
0 -4 E CN P Ly 


Pp 
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2390 FOR I=1 TO MN 

300 LPRINT "I'" 

310 LPRINT "C";¡Ccutl) 

20 LPRINT "J0,20,350,0,0,-20,-3 


330 LET J=0 
340 LPRINT "MO,"¡J: LPRINT "J30 


350 LET J=sJ+Pil): 1F J<xZ2 O THEN 
340 

360 LPRINT "M40,0": LPRINT "“P"; 

370 FOR K=1 TO 11-LEN (N$1T)) 

380 LPRINT "P": NEXT K 

390 LPRINT "P"¡ULTI) 

400 LPRINT "M0,0,0,-30" 


420 LPRINT "MO,-100": LPRINT “A 


450 CLOSE 3 
440 CLOSE R4 
450 ST 

4694 LET Pe=2«PI 


4350 FOR EE 2 TO 100 5TEP 2 
4909 LET S=I-1004«P2 
2300 LET X= INT (SIN. SIR LT 
YzINT (COS (S)%ÉR) 
510 LPRINT A$;X;".";¡Y: LET A$=" 


HP 


Ñ 
Y P2/M 
T (SIN (5)*R): LET 
a: 

570 LPRINT "H 


di 


LET OX1=INT_(SIN (05S1*R): LE 
LET XO=INT_ (SIN (PSI1*R): LE 


LET ST=R: LET. -R 
IF Oy.=0 AND PYO O THEN LET 


IF Gr<=A AND PY<=0 THEN LET 


3T TO EN STEF -FII) 
¿QA LET J=1 
710 LET RA=SOR (ReER=YRYV1 
20 IF vY=0 THEN LET ES=PI.«2: GO 
tú 750 
7350 LET RS=ATN (RAY) 


4 4 
gi 


F0Z-J10DUNEE 
Sii OM GOEÍAXA 
<m: 


¿00 MO On 
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100 


740 IF RS:<0 THEN LET RS=RS+PI 


750 IF 0S<RS AND RS:<FS THEN LET 
DIJ)=INT (RAJ: LET ¿J=Jd+1 

769 LET RS=P2-RS 

770 IF Uv=09 THEN 60 TO 330 

750 LET x=Xx1-«UYrevr 

790 IF SGN (XI <> SEN í(X1) THEN 6 


ú TO 3350 

300 IF SGN (Y):<>0 ANC SGN (QY)3< 
SEN UY) THEN 60 TO 350 

3510 LET RT=SGUR (XX +VYEY1 

320 IF ERT:<=R THEN LET C1(.1)=INT 

(XxX): LCLET J=Jy+1 

IF Fy=4 THEN 60 TO 82340 

LET X=XD+Y/s:PvYr 

IF SN (X1<>SGN. (X0) THEN E 
390 

IF SGN (Y)<>4 ANC SGN (PY) < 
(Yi THEN GO TO 590 

LET RT=SOR (xeX+Vvevri 

IF RT<=R THEN LET D (JJ) =INT 

LET J=JU+1 


1] 
CO CU 


e 


O O LO e 1 OO O A CO OO UN Y 
AZOTEA 


IF 0OS<RS AND RS:<FS THEN LET 

J=SINT (-RAJ: LET JU=zu+1 

IF vY:0 AND J:x2>33 THEN LET DÍ 
1. LET J=zJd+1 

IF 1:i=3 THEN GO TO 990 

FOR KR=1 TO J-1 


LET MIN=DIK): LET MN=L 

FOR L=K+1 TO J-1 

IF DILI<MIN THEN LET MIN=0C i 
LET MN=L 


NEXT Ll 
LES DIMNIT =D IRIS LET DiEKISMI 


N 
2350 NEXT K 
390 LET R=1 
1000 IF U=2 AND Y=4 AND CLC=1 THE 
N _LET DIK)=-"R: LET CIR+1i=0: LET 
cézp 
10104 IF l:=2 THEN GQ TO 1060 
1820 IF Y=4 AND ¿=4 AND CO=sA THE 
A LET DE) =D: LET DIK+13 =R:, LET 
DE 
10830 LPRINT O A NA € y 
E E A e A AS 
1040 LET QU = 
1054 LET E=K+2: 1F K<uU-1 THEN 60 
TO 1020 
1060 NEXT Y 
1074 NEXT I 
1054 RETURN 
1090 FOR I=1 TO N 
“"ELEMENTO= ¡NS (TI) 
180 INFLIT :FRECUENCIA= SUEZ) 


EA O a LS E a EA 


GO _O0O0BDBSOEUCA 


A 


JT .. 


11: 

1124 INPUT “"COLOR= EST) 
td OS iIi="NEGRO" THEN LET € 
L1J=0 

PA IF CS(I)=<"AZUL" THEN LET C( 
x=: 


ar C5 (1) ="UERDE" THEN LET C 
Lll=s 

E IF CS$(I)="ROJO” THEN LET C( 
)=sS 

11780 INPUT "SOMBRERDO= "¡PIilTi 
1150 LET M=M+U0 (Ti 

1130 NEXT I 

1200 RETURN 


GRAFICO-TARTR DE VENTAS 


Fig. 21 


La figura 21 muestra un ejemplo de la edición obtenida mediante 
el programa TARTA. 


Otros periféricos 


En este capítulo se ha estudiado el uso del interface RS232 para 
conectar el Spectrum a una impresora. Se debe tener en cuenta que 
en ese caso la comunicación tiene lugar en una única dirección, con el 
ordenador transmitiendo y la impresora recibiendo. No obstante, tal y 
como se mencionó en la introducción del capítulo, el interface RS232 
puede utilizarse también para conectar el ordenador a otros periféri- 
cos, tales como modems, terminales u otros ordenadores. En estos 
casos la comunicación será bidireccional y debe usarse el canal b, 
permite transmitir o recibir código completo de 8 bits. 
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10. Exhibición de diapositivas 


A lo largo de este libro se han considerado muchas aplicaciones 
del ZX-Interface.1 y los microdrives. En este capítulo se estudia una 
última aplicación, que es posible debido a la alta velocidad de transmi- 
sión de datos entre los cartuchos de microdrive y el Spectrum, y de 
éste a la pantalla. Los dos programas listados a continuación 
—DIAP.1 y DIAP.2— emplean archivos, código máquina y la función 
SCREENS para conseguir que el ordenador actúe como un proyector 
de diapositivas o de pantallas de texto. Permite construir un máximo 
de 26 pantallas, editándolas y grabándolas en un cartucho, para ser 
luego mostradas secuencialmente, proveyendo al usuario de una he- 
rramienta de gran complejidad. 


DIAP.1 


Este corto programa inicializa el sistema y genera los archivos 
necesarios. Debe ser introducido, comprobado y grabado en un cartu- 
cho mediante la instrucción: 


SAVE **“m”;“DIAP.1” 


Listado 
109 CL5S 
2a LET ag$="" 
30 OPEN 345 '"m";1;"“DIAFOSIT" 
40 FOR i=1 TO 26 
SO LET afzat+" " 
50 NEXT 1 
70 PRINT Hd;¡as$ 
30 CLOSE *RH4 
28 STOP 

DIAP.2 


Este segundo programa es mucho más largo que el primero y 
contiene todas las funciones necesarias para permitir el usuario di- 
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bujar, editar, borrar y ver las distintas escenas. Debe ser introducido y 
grabado mediante la instrucción: 


SAVE *“m”;1;“DIAP.2” d 


Listado 
1 EL> 
e CLEAR 499933 
3 GO SUB 9000 
184 RESTORE 
20 FOR n=58508008 TO 55011 
30 REA m 
480 PORE n.m 
Su NEXT n 
60 DATA 1,0,27,17,0,64,33,590,1 


Y) 
o 
(0) 
7] 
e] 
EP 
ga 
f 


' ¿176,201 

70 BORDER 7: INK 0: PAPER 7: F 
LASH 0: BRIGHT 0: OVER 0: CLS 

7S PRINT AT 1, 10;"Menu"; OVER 
1;AT 1,10;' 

su PRINT PETT Dibujar uy arabar 
un cuadro" 

Ed PRINT ¿"23 Ver todos los cu 


ros" 
“0d PRINT *"3j) Ver Y editar un 
cuadro" 
1095 PRINT “*"4) Finalizar" 
1807? PRINT *"5S) Borrar un cuadro 


105 PRINT 5) Listar cuadros" 
110 PRINT *“*TAB 5,"Entre su ele 
ccrion” 


R a$>"6" THEN GO 


LAS. LS 

15808 60 TO SABFUVAL as$ 

S00 LET v=0: LET x:=0: LET 3y=0: 
LET 31€0: LET pe?: LET fa: LET b 
=08: LET 0:0 

510 PLOT INK i; O Pi FLASH 
Fi EGRIGHT Ej, OVER 0;x, 

SILOS LF Y THEN PLOT DUER E 
Ss20 LET a$=INREYS 

Sá LET 22-510 

S4a4 LET Xxx: LET 3yye 

= ny" THEN LET 0vw=NOT y 

550 IF a$="7?" AND uii?s. THEN LE 
T Yy=yY+1: 60 T Z 
560 IF a$="6" AND u>4 THEN LET 


Y=Y-1: 60 TO Z 

S7Q IF a%$="5" AND x>4 THEN LET 
xX=X-1: GO TO z 

S5su IF a4="8" AND x:<255 THEN LE 
T Xzx+1: 60 TO 2 
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590 IF a$="q" THEN INPUT "Borde 
= ";¡S: BORDER £ 60. 19 _2 

600 IF a$="c" THEN CLS : GO TO 
510 IF a$="i" THEN INPUT "Tinta 
620 IF a$="p" THEN INPUT "Papel 
530 ZF_38="f" THEN LET fÉeNOT f: 


GO TO 

6410 IF" a$="b" THEN LET b=NOT E: 
GO TO z 

658 IF a$="0" TMEN LET O=NOT O: 
GO TO 2 


560 IF a$="1t" THEN INPUT "Texto 
'¡ LINE b$: PRINT INK 13; PAPER 

PS, FLASH Fi BRIGHT b; A 0; AT 

(175-941 /8,x-3,b%: GO TO 

570 IF ag$="h" THEN INPUT” "Radio 
ri CIRCLE INK iíi;, PAPER p; FL 

Fi; BRIGHT bi; OVER 0;x,Y.f: 6 


F a$=' da THEN INPUT "x= "; 
ye ¡3u; ¡jaz: IF x+a8x> 
D X+ax<2585 AND y+ay>O AND Yy+ 
175 THEN LET x=x+ax: LET 4u=u+ 
DRAW INK i; PAPER p; FLASH f 
IGHT b; OVER 0;ax,34u,az: 60 


IF a$z="1" ANC x>4a AND y>0a T 
LET x=x-1: LET y=z4-1: 60 TO 


IF a$="2" ANC x>0 AND u«x1 
N LET xzx-1: LET u=zy+1: 60 
y 


s 
- 
a3a$:= "3" AND x<255 AND <1 
LET x=x+1l: LET YzW4+1: 60 

$ [54 


="4" AND x<255 AND Y> 
X=X+1: LET Y=Yy-1: 60 T 


m THEN INPUT ES 
y GO TO 

> 5 THÉÑ 50 TO 300 

u; "Coloque el cartuc 


OD! 
0 
a TM MAT : 


GND -Z 200 


, 
z 
I 


MI +-00q0w 
on -- 


JAN AS MOO «Cue  =<m 


> 


o PAUSE 200: INPUT " 
0;'No Lo saque mientra 
e PRUSE 200: INPUT "" 
PRINT 20,"piloto rojO... No pu 
se BREAK": PAUSE 200 

SE INPUT "Que cuadro (A-Z) "; 


a$ 
310 AS a$<"A" OR as$>"Z" THEN GO 
3820 IF 9I%(CODE a$-64)="." THEN 
ERASE CI TE 
350 SAVE *'"m'"; 1; ii : LET 


q$ (CODE as$- 6dji=".": GO TO 
3000 
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1000 IE0BE 0D” " THEN LOAD *'"m" 
1005 IF q$í1)=" " THEN GO TO 107 
1910 IF q$(2)1="." THEN LOAD *"m" 
;1;"B"CODEÉ 59000 

1915 IF q$i2)=" " THEN PAUSE 0: 
60_TO_1070 

1020 FOR _N=CODE "C" TO CODE "Z" 
1025 PAUSE 0 

1039 LET L=USR 65900 

1040 IF q$in-64)="," THEN LOAD + 
"mn ";1;CHFA$ McODE Sum 

1050 IF q$in-54)=" " THEN GO TO 
1970 

1960 NEXT n 

1970 IF INKEV$<>"" THEN GO TO 10 
eS 

1075 PAUSE 0 

10580 CL53 : PRINT_80;"No hay_mas 


cuadros": PAUSE 200: G0 TO 70 


1500 
L INE 


INPUT "Gue cuadro 1A-Z) "; 
3% 


1519 IF a$:<"A" OR a$>"Z'" THEN G0 
TO 1500 

1520 IF asi CODE a$-64)="." THEN 
LOACG :*"m";1¡a3$5CREENS 

1530 60 TO 500 

20080 PRINT AT 21,0;"Adios” 

010 STOP 

2500 EE "Que cuadro (A-Z) "; 
LINE as$ 

2510 IF a3$<"A" OR a$>"Z'" THEN GU 
TO 2500 

2520 IF 2a5$ (CODE a$-64)=" " THEN 


PRINT 40,"Este cuadro no existe" 
: PRUSE 20400: 60 TO 2500 


2330 ERASE "m'";1l;¡as$ 

2540 LET $ (CobE a$-54)= Y 

25508 60 TO 5000 

350006 PRINT "Los cuadros que exis 
ten e muestran en video 1n 

verso: “0” 

3020 FOR n=CODE "A" TO CODE "Z" 

ta IF 9q%$1inm-54)=" " THEN INUERS 

rd IF $ in-54)1="." THEN INUERS 

3050 PRINT CHRS$ n; 

35064 NEXT n 

35055 INVERSE Y 

350708 PRINT R0;,"Pulse una tecla”: 
PHUSE 

350950 60 TU 70 

5000 ERASE "m";1; "“DIAPOSIT" 

s010 OPEN Ha; '"m"; 1; “"DIAPOSIT" 
soe20 PRINT 84,95% 

5038 CLOSE E4 

5048 60 TO 70 
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3000 PRINT TAB 3; "ExXHIBICION DE 
DIAPOSITIUAS" 

3010 PRINT TAB 3) “EUMESPLLITEZAZZ 
== === === === =' 

2020 PRINT “* 

30309 PRINT AT 10,7, FLASH 1; “CAR 
GA DEL ARCHIVO" 

35035 PRINT AT 15.23; INVERSE 1; F 
Ja 1; "POR FAVOR, ESPERE UN MOM 
3049 OPEN 84; '"m'"; 1, “"DIAPOSIT" 
39060 INPUT vAcas 

S07a CLOSE H4 

3039 INPUT "PULSE -ENTER- PARA Ss 
EGUIR"; LINE 25 

2090 RETURN 


Instrucciones 


Una vez entrados y grabados en un cartucho, pueden explorarse 
las posibilidades que brindan estos programas. 


1.? etapa 


Cargue el programa DIAP.1 pulse RUN. Se inicializa el archivo de 
datos DIAPOS para poder aceptar los datos generados por el progra- 
ma principal. 


2.? etapa 


Una vez inicializado el archivo, debe cargarse el programa 
DIAP.2 y ejecutarlo. Inmediatamente aparece en la pantalla el menú 
principal (fig. 22). 

Se accede a una de las funciones del menú pulsando un número 
de 1 a 6 (cualquier otra entrada será ignorada). A continuación se 
describen las distintas opciones. 


Dibujar y grabar una escena 


Esta sección permite al usuario diseñar una pantalla (gráficos o 
textos) y grabarla en un cartucho. Aquí se prueban la creatividad y la 
habilidad del usuario para crear imágenes mediante las teclas cuyo 
comportamiento se define en la tabla 4. 
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Menu 
Dibujar y grabar un cuadro 


Ver todos los cuadros 
Ver y editar un cuadro 


Finalizar 
Borrar un cuadro 
Listar cuadros 


Nota 


Entre su eleccion 


Fig. 22 


Tabla 4 


| 
11d 
n 
pa 
PU 


Funcion 


“2070 pr Dr" CS PAD A 


ja linea 


a + Cao ¿Cu e ao 

6 0 0» 0: Qs 
nro 
».. p.. pa. 
3337 
ora 
b 6 0 
MMOO 


esta 


pe 
a 
mu 
m 
- 0 
DAW OD MZNOUZZO 


U 


G 64 PARA NP 
JO Ar -NNVUOOJO 


OZIODOMOOGOODOOOODODODOO 
0 0 CL Os 6 y vs ss ss 0 
in 


A e O A rr 0 4 02 pe 
VAT ZZ2EZEAZZEOCUOOOOOO 


<CcciacoDoOcaloaor cc eE cecccce 


TP CS A ds A AA 
A ll sl 
bs A Om X Y O O be E; 


TD in 


Consúltese el manual del Spectrum para conocer más detalles de 
los complementos OVER, BRIGHT, etc. 
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Ver todas las pantallas 

Esta es la función que permite la exhibición de diapositivas y con 
la cual se muestran en orden todas las pantallas guardadas en el car- 
tucho. Mientras se exhibe una pantalla, la próxima se carga automáti- 
camente en la memoria. En el momento oportuno se transfiere la ima- 
gen a la pantalla mediante una rutina de código máquina. 
Ver y editar una pantalla 

Esta instrucción exhibe una pantalla y mediante la opción DI- 
BUJAR (función 1) se puede modificar y volver a grabar. 


Fin 


Con ésta se abandona el programa. 


Borrar pantalla 

Tal y como sugiere su título, esta función permite borrar cualquier 
pantalla grabada en el cartucho. 
Listar pantallas 

Las pantallas se graban en el cartucho con letras de la A a la Z. 


Mediante esta opción 6 se puede investigar cuál de estos nombres 
está libre para contener nuevas pantallas. 
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11. El ZX-Interface.2 


La segunda unidad de expansión del Spectrum es distinta de su 
predecesora, ya que sus funciones se limitan a dos áreas. En primer 
lugar, permite al usuario la utilización de programas grabados en mó- 
dulos ROM. También admite la conexión de dos mandos para juegos, 
que alivian el excesivo uso de ciertas teclas del Spectrum. 

Queda fuera de los objetivos de este libro estudiar cómo el usua- 
rio puede configurar sus propios módulos ROM, pero sí se considera 
el uso de los mandos para juegos. 


Instrucciones 


Los mandos para juegos están muy relacionados con las teclas 
de la fila superior del teclado, tal y como se indica en la tabla 5. 


Tabla S 


—Á 


ecla 


Equivalente mando 


SODOM ON E O OA 


IZQUIERDA mando.2 
DERECHA mando.2 


NDIOHTDD 
CIOMNCIO 
MIDICOMDIT 


Por ejemplo: pulsar la tecla 1 es exactamente lo mismo que 
mover el mando para juegos 2 hacia la izquierda. Por lo tanto, la ins- 
trucción INKEY$ puede utilizarse para detectar cualquier movimiento 


de los mandos. 
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Este método, aunque resulte satisfactorio en muchos casos, no 
permite detectar dos entradas a la vez, tales como IZQUIERDA y 
FUEGO al mismo tiempo. 

Como alternativa se puede usar la instrucción IN para traducir las 
acciones sobre los mandos. Mediante IN 61438 se obtienen los valo- 
res del mando 1 e igualmente con IN 63486 da los valores del mando 
2. La instrucción IN se parece mucho a la PEEK y su resultado es un 
número de 8 bits, o sea entre O y 255. Para los mandos sólo es nece- 
sario conocer los cinco primeros bits de los ocho disponibles, tal y 
como se muestra en la tabla 6. 


Tabla 6 
Opcion Mando.1 Mando.2 

INS14383 1N63486 
Fuego Bit 0 Bit 4 
Arriba -¿ Bit 3 
Abajo Bit 2 Bit 2 
Derecha Bit 3 Bit 1 
Izquierda Bit 4 Bit Q 


En un programa, los valores se obtendrán mediante una instruc- 
ción IN y luego extraer la información de los bits significativos de la 
forma que describe el siguiente ejemplo. 


Ejemplo 


La siguiente rutina lee el mando 1 e iguala a 1 las variables ARRI- 
BA, ABAJO, DERECHA, IZQUIERDA y FUEGO cuando se mueve el 
mando en alguno de estos sentidos. 


10 

20 LET ARRIBA=0 

30 LET ABAJO=0 

49 LET DERECHA=0 
50 LET IZQU dl =0 


64 LET FUEGO 

70 LET A=25S5-IN 61438 

S0 IF AR>127 THEN LET A=A-128 

90 IF A>ES THEN LET A=A-64 

100 IF A>31 THEN LET A=A-32 

110 1F A>)15 THEN LET A=A-16: LE 
T IZQUIERDA=1. 


110 


120 1F A>7 THEN LET AzA-3: LET 
DERECHA=1 

130 IF A>3 THEN LET AzA-4: LET 
ABAJO=1 

1409 IF A>1 THEN LET A=A-2: LET 
ARRIBA=1 

159 IF A=1 THEN LET FUEGO=1 

160 REM AHORR_LAS VARIABLES 

INDICAN LA SITUACION DEL MANDO 


Comentarios 

Líneas 10-64 Inicializan todas las variables a f. 

Línea 74 Hace una lectura. 

Líneas 84-140 Elimina la información almacenada en los bits 5, 6 
y 7. 

Línea 116 Comprueba el bit 4 e iguala la variable a 1. 

Línea 129 Comprueba el bit 3 e iguala la variable a 1. 

Línea 130 Comprueba el bit 2 e iguala la variable a 1. 

Línea 146 Comprueba el bit 1 e iguala la variable a 1. 

Línea 156 Comprueba el bit /) e iguala la variable a 1. 


Ahora que ya se ha visto cómo puede detectarse la posición de 
un mando para juegos, se presentan algunas aplicaciones. En las pró- 
ximas páginas hay ejemplos de utilización de mandos en programas 
de utilidades y en complejas aventuras gráficas. 


CROQUIS 


El programa debe ser introducido en el ordenador, comprobado y 
grabado mediante la instrucción: 


SAVE *“m”;1;“CROQUIS” LINE 18 
o bien, si no dispone de microdrive: 
SAVE “CROQUIS” LINE 19 


Listado 


19 PAPER 4: OVER 0: LET tinta= 
: BORDER 0: CELS 

13 -ENR 

16 PRINT AT 17,0," 


20 FLOT 0,39: DORAWU 255,0 
34 FOR i=? TO 169 STEP 16 
40 PLOT 1,16: DRA 3,4: DRAL Y 
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1RE 


o 


S 


UMNSUEWVO 
>] 


-3: DRAW -3,0: DRA 4,3: NEXT 
45 PRINT AT 20,1," R" 
46 PRINT AT 20,139,"C" 
47 PRINT AT 20,21,"S" 


SO INK 1: LET 1-53: GO SUB 1000 
SS INK 2: LET i¡i=24: 60 SUB 100 


50 INK 5: LET i¡i=40: GO SUB 100 
BS INK 4: LET i=56: GO SUB 100 
YO INR S: LET i¡i=72: GO SUE 100 
S INK 5: LET ¡=35: GO SUB 100 
ase INK *: LET iz=104: GO 3U5 10 
po INK 0: LET i¡=120: GO SUB 10 


30 INK 
190 PRIMT AT 18.0; "Colores tin 


110 INK tinta 

1508 LET X=65:< LET Y=12%28 
160 LET ex=x: LET uwrhy=4y 
200 LET a=IN 514583 


t 


2140 IF as127* THEN LET a3=a-128 
220 IF 3263 THEN LET a=a-54 

250 IF a>31 THEN LET aza-32 

240 IF 315 THEN LET a=3-16: IF 


x:x255 THEN LET exzex+1 
SO IF a>7 THEN LET a=a-3: IF 
HEN LET exzex-1 


THEN. Ler why unust 
GS 1F 31 THEN LET 3=3-2: 1F 
THEN LET yhy=4hu-1 
50 LET fuego=a 

OD 1F whY:339 THEN 50 TG S00 
4040 LET x=zex: LET u=uhy 
410 PLOT x.y 


Li 


4s0 IF fuego=1 THEN INK 0: FLOT 


x,Y: INR tinta 
430 60 TO 200 ] 
004 FOR x=i TO 1+7: PLOT x,15%: 


RAW -0,-7?: NEXT x: RETURN 

000 LET x=ex: LET Y=why: PLOT 
210 IF yu<l15 AND Y>7 THEN 60 TO 
220 60 TO 200 

asu IF > AND x<16 ANC fuego= 
THEN LET tinta=s1: 60 TO 15 
035_IF x>23 AND x:<32 AND fuego= 


050 IF x>71 AND x:<8040 AND fuego 


AS 


4d THEN LET tinta=S5: 60 TU 
5055 IF x>37 AND x<96 AND E 
ÓÚ THEN LET tinta=5: 563 TO 
5060 IF x>103 AND x:<112 AND f 
0=0 THEN LET tinta=7: 60 TU Fo 
1 


Pp 


5065 IF x119 AND x<1=8 AND e 
9:0 THEN LET tintaz=z?: GO TO 
5070 IF x>13S ANC x<144 AND fue 
90:% THEN 60 TO 15 

S07S IF x>151 AND x:<160 ANC fuez 
0=:0 THEN RUN 

SoO77? IF x>169 ANC x:<176 AND fueg 
o=0 THEN SAVE *x'"m";1;' "cuadro" sCck 
EEN$ : G0 TO 15 

s0509 GO TO 200 


Instrucciones 


Para usar el programa CROQUIS, conecte el ZX-Interface.2 tal y 
como se muestra en el manual de instrucciones y conecte el mando 
para juegos 1. Una vez completado esto, conecte el Spectrum y car- 
gue el programa CROQUIS de la forma normal. El programa se ejecu- 
tará automáticamente una vez cargado y, desde este momento, ya no 
será necesario tocar el teclado. Todas las instrucciones se darán con 
el mando. 


Funciones 


DIBUJAR Muévase el mando en la dirección deseada, pulsando 
FUEGO al mismo tiempo. 

MOVERSE Muévase el mando en la dirección deseada, sin pulsar 
FUEGO. 

CAMBIAR TINTA  Utilicese el mando para mover el cursor hasta si- 
tuarlo sobre el color deseado de la paleta. Púlsese FUEGO. 
BORRAR PANTALLA Como antes, pero situándose en el cuadro C. 
INICIALIZAR PALETA Como antes, pero situándose en el cuadro R. 
GRABAR PANTALLA Como antes, pero situándose en el cuadro G y 
pulsando FUEGO. 


Nota 


Cuando use la paleta, se mantendrá un rastro para indicarle su 
posición actual. Este rastro se borrará cuando se haga la selección. 
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EL CAZADOR MUT 


Introduzca el programa en el ordenador y grábelo en el cartucho o 
cassette usando: 
SAVE **m”;1;*MUT ” 
O bien: 
SAVE “MUT ” 


Listado 


10 CLEAR 

24 LET a5$= : . . . . . . .8.. (,.€ . 4 4 € 4 9242 0 4 0 4. 
00 LET aR=abr O. mdd cena 

.s.. .d . a ... ». . > | . a . « 


"40 LET agf=ag+". a 


"su LET ab:2a%4+'". .. ...u os... e... nn 
e. e, NARA. ls . .. .. » 


5 LET a3$=a%$+". . 


y ió PMLo nn. .««.%....OOC qXqXx£x£(xX£rRR| q — e .. . ... ». .* 
70 LET agzag+". Preg 


"SO LET ag=a$+". CN DS 


da” 


30 LEE 3 $:=3 $+ e .. fí 

. .. e.» LO qpqO O ,—q,£$ .o“ . 1 E » o. . 
104 LET ab=ag$+". 9 A ia 
n ... . .. n . ca. Mo ... 


h 
P 
a 
r 
m 
— 
as 
+ 
“ 
a 
4 
+ 
ue 


da. 
130 LEFT atz:a$+".l. ..... ........ .... 


Y . .WWis.is .n. .. .. .».. 
140 LET af=zag+". E A 
c.... A ” a " . «Mi 
150 LET abszas+"....... Am 
ms . ».. e. see Ni . .« E] . . 
"160 LET aS=zag+" .FFFFFf ...ooono 
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170 LET DSBTZARE caca 


"iso LET as$= el Ñ P. 
ooo y . » .. . .. " e . 
aa a a34= a$+'" . iS » 0)... . » 
200 LET atzasf$+'". ó a 
210 LET abzab+".. +... .. ... 
220 LET afza$y+$"... e $ 2d 
0 e Mo ,|íg.a . . . 1 eo X 
230 LET agsab+".. 6... +... +. 
e... aaa a ON - TA A - E . 


240 LET abzañ+".M . ....M +. 
A CN E . »s. ¿AñAissm.0Ds . 


250 LET agfzag+"... Mao... 

.. .. . .. . . » Maa as Rp 
Za” 
260 LET ASEASG+A" ...onssrasoasass 


"300 DIM mM(20,5): DIM dí20,2) 


310 FOR i=1 TO 20: FOR j=1 TO 5 


READ a: LET Míi,jl=a: NEXT y: 
315 FOR i=1 TO 20: FOR j¡=1 TO 2 


READ a: LET 311, 4)= NEXT 
NEXT 1 

320 DATA 8,3,7,58,2,7,5,.08,8,3,7, 
6,8,9,7,6,8,9,7,8,.9,7,5,6,2,3,58, 
1,6,98,9,4,3,5,4,8,7,3,5,8,2,3,9,. 
18,3,7,16,4,10,11,12,3,195,6,8,7,82, 
O A PO O O. E >. ES E Pe E 
19,12,14,12,2,4,3,5,7,6,9,9,9.,5, 
5,6,1,5,3,2,4,.5,7,9,24,35,43,56 
330 DATA 3,4,5,3,7,3,6,9,10.2,5 
,9,8,6,7,4,5,12,13,14,15,21,22,2 
4,25,31,9,9,8,7,6,5,5,7,6,5,4,5, 
E 

204 GO SUB 939500 
oe PAPER 1: INK 6: BORDER 1: C 
1001 LET d$="SUR": LET cdlilz=40: LE 
T cd2:0: LET cd3=:0: LET rdz0 
1002 LET hi=0: LET mark=4: LET cc 
ontrol=0a 


1003 LET puertal=0: LET puertas= 


Q 

1005 PLOT 21,170: DRAU 213,0: DR 
AY 4,-11: DORA -213,0: CRAW 4,11 
1010 PLOT 95,104: DRAWU 65,0: DRA 
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T 35,55: CRAW 79.0: PLOT 175, 


Y 0,-33: DRALWL -65,0: DRAU 0,33 
1020 PLOT 353,120: CRAU 79,40: A 
DR 


: DRA 0,-119: PLOT 173,145: 
WN Y0,-123: PLOT 850,143: RAN 0, 
19: PLOT 82,145: DRA 0,-123 
1930 INK 4: PLOT 5,90: DRAU 69, 
: ds 0,-65: DRAL -69,0: DRAUW 


iozo INK 4: PLOT 7,145: CRAW 57, 


Y: PLOT 183,143: DRAW 57,0 
1050 INK : BRIGHT 1: PRINT AT 1 
7,23, "Pantalla" ¡AT 138,28; "OK";AT 
3.1; Scanner”; AT 15,23: : "Ordena 
Jdor' AT 16,28;"0K";AT 6,1;"Estad 
0"; AT 6; "OR"; AT 9,1;"Informe”":; 
AT 11,1 "No" “AY 182,1: "Contacto"; 
AT 3,23;"Siztemas'" ¡AT 5,23;"Arma 
sS"¿AT 56,28;"0K";AT 7,23; "Traccio 
n“¡AT 3,28;"ORKR";¡AT 9,23; "Visual" 
¡AT 10,283; "OK";¡;AT 11,23; "Scanner 
"¡AT 12,28; "OKR"¡;AT 13,23; "Superwv 
1v"¡AT 14,23; " e 


1960 PRINT AT 156,14; "MODO";AT 18 


1100 LET cs$="Mando o teclado ? 
mt)": GO SUB 3000 
1120 IF INKEY$="m" THEN LET mmb= 


1130 IF INKEYS="t" THEN LET mnb= 
4: GO TO 1500 

11489 0 TO 1119 

1500 LET d$="SUR": LET 0=52 

1510 LET aok=100: LET ar=104: LE 
T sok=100: LET vok=104: LET dok= 
100: LET vok=100: LET lok=100: L 
ET 2cok=1008 

1520 LET ve=40k: LET diz=dok: LET 
ViESPOK: LEFT 3SCcsS80K: LET Lisctok: 


LEF €D=ScORk 

15004 60 SUB 400 

168891 0 TO 4000 

1505 REM 

1610 RE! omprobacion encuentro 
1515 REM 
108 IF a$1t01:<>'"d" THEN GO TO 17 
1625 INK *: BRIGHT 1: PRINT AT 1 
1,1;"Defensa "¿AT 12,1;'"nave 
1654 LET c%$="ATENCION! Funcion 
3 sistema de proteccion de la na 
ve": GO SUE 3000 

1635 LET _ ef=d INT [(20%RND)+1,1): 
LET ed=INT ¡RND*11)+1: LET es=9 
: LET 23 md (INT (RNIDz20)+1,2) 
16144 50 SUE 3500 

15854 LET c$="Hemos destruido el 
Siztema de proteccion de la mave 
1": GO SUE5 3000 


. 


su PRINT AT 11. 1;,"No "AT 
¿1 “Contacto 

LET c$= "Vuelvo a modo COMEL) 
OR" GO sSuB 3000 

PRINT AT 135,12; "ORCDENACOR" 
LET afílo)<=" " 

GO TO 40909 

IF a$1t0)<>"9" THEN 


Suc 00 O + fa q 
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FRINT AT 11. 1: "Guardia 
; O LET cs="A 
Laia en dl scanner": 60 
3000 
A LET es=11: LET ed=1=: LET e 
: LET 2ea3a=3: 60 SUE 3500 
= "Hemos destruido al 


"AT 
, A "Con tacto" 
LET có$="VUuvelvo a modo 0RCDEN 
va 50. SUB, 3004: PRINT AT 13, 


12,15" 'Contac to”: LET a$íol= 
Go TO 40009 
IF a$to3<>' m" THEN GO TG 17 


PRINT AT 11,1;“Mut"¿AT 12,1 
LET cs="Atencion! Mut en el 
3Añner La 


de 
JUO inmediatamente": GO SUB 3 
SET chos CENT [RNC+201 +1): E 
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LEr ES=micho, 4): 60 SUB 35 


1 A > 

a LET cs="Vuelvo a3 modo ORDEN 
"2: GO SUBE 3000: PRINT AT 185, 
12; ANOS ET. 11,1, "No ds 
¡AT 12,1;"Contacto": LET a$1o)=" 
Ss. 130 Tú 4000 

1770 IF a$1o)<>"y" THEN 60 TO 17 


su 

1772 PRINT AT 11.1;"ALgo "RAT 1 
2,1;"viscoso ": LET c4="Alg0o vis 
coso en el a SÓ SUE 3000 
¿ LET sñí=1: GO TO 4510 

4790 IF ABRIOrI<>"“F" THEN GO TO 17 
390 

17352 LET c6="Nos rodea una misbl 
3 radinactiva Es energia que 
se escapa de los sistemas de Tra 
ccion y Pantalla Espere el in 
forme de averia": 60 SUB 3000 
1784 LET dy=dr -INT ¡(RND*15)+1: L 
ET c$="Traccion reducida en ": L 
ET c$=c$+STR3S% (1040-44): LET c$=c0c 
$+:": GO SUB 30049: LET dr=du: 1 
F dr:<x10 THEN PRINT AT 8,23; "00%" 
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: GO SUB 3004: PRINT AT 18. 
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3 Sd  ROMNLacrioO > LET ag$io)=" 
GO 0 4000 
0 IF a$to?1<>"h" THEN GO TO 13 


una mM 


1 


2 E Ma MME 


=* a Dpa 
DO + -. 
6_+3 


rad de “507-168 0im 


—Á)-- (DC CJ de 


TU 


rl 
a 


= 
am 


a] 
LL DECO OI 


e ii ZII O A 


e 
PRE 


7 1047 
O a 
2 mm 


dc 


CM y Cl 


a CES A TES 
Mem + 


+ -.,] e E o mu | paa] ES | 


24H 705 ÉL OL 7 1 
BZ —0-T0 
Jo aw 

631 
UM 
-- TD Os La y 
a 
HE AT + > 
ri 0 a 

A 

+ 49 lo Ud 


E LIMON: 


210 
TE par O, 
> e 
"“ 


"H 
He fipúwztr 
M0 

GA 

Qcó 

HH 


IUROIMpA 1 


PRINT AT 
1009 THEN PAT 


SO TO 4510 
7 3$10+hj)1:<>%0" THEN GO TO 
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una puerta 3 una area prohi 

Solo se puede abrir € 
a! DISCO DE MANDO 1": GO SUE 


2$="Vuelvo a modo ORCEN 
¿GO SUB 3000: FRINT AT 13,1 
¿ CORDENADOR": 

SO TO 4000 

10 IF a$101)<>"1" THEN 60 TO 13 


12 LET c%4="At 10n! Mut en el 
canner Pa, ce que lleva un 
disco de mando ": GO SUB 300 
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Munt! " GO SU6 3000 LET a5$!01 
die LET c$="Hay un di300 de ma 
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37 LET c="NVuelvo 3 modo ORDEN 
OR": GO SUE 3000: PRINT AT 135. 
; CORDENADCOR": GO TO 4aque 

49d IF a$to*+hj):<>"p" THEN GO TO 

“850 

153542 LET c%="Frent 
3Y Una puerta que co 
rea restringida 5e 
mediante el CISCO DE MANDO E a 
SO =U5 3000 

1343 LET cs$="Vuelvo a modo ORCEN 
ADOR": GO SUB5 3000 : PRINT AT 135, 
a ¿ “ORDENADOR” SO TO 3000 
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-15,40: DRALW 4,29 
LOT 123,93: PRA 104,0: DRA 
DRA -10,0: CRAL 0,6 
ENT 102,10: CRAV 52,0: CR 
Ay-24: DEAIJY -14.,0: GRAL -12,1 
RAW -12,-15: DRAW -13,0: DRA 


LOT 108,97: CRA 4,0: DRAL 
2: DRALJ o ae PRAL 4,2 


1355 LET cs="Parece que tenemos 

prrobiemaz'": GO SUB 50900 
1336 LET es=100 LET e3a:30 LES 

e=390: LET ef =160: 60 SUE 3500 
13398 IF 3%8/01< o THEN 0 TO 13 

an 

13392 INE *: ERTIGHT 1: PFRINT AT 1 

1,11; "Resctor" ¡AT 12,1: “Nuciear” 
LET c="Atenzcion! Reactor nucie 

3 en el 32canner Ezta robando 
energia del 212fema 3e SuUpervai! 

encia "0 SU56 3000 

13533 LET liízii-INT (ENCeZOai FRI 

NT: AT. 1d SEA LD IF  Li5$=100 T 

HEN FRINT AT 14,235 DE, 

13394 IF li<10 THEN LET Li=0 FRI 

NT AT 14,27: Qax": LET ef="=3upe 

reivencia" "o 60 TO. 9500 

1398 IF END>.S5 THEN LET c4="Ha t 

omadoa demasiada eneradi3a Y EXPLOT 

q! La pantalla nos ha saivad 

O Pero 22 h3 averiado": GO SUB 3 

ade: LET 3r=35-INT (RND+*15) 

1537 IF ar:<10 THEN LET ar=0 LET 
eb="Pantalla": PRINT AT 14.237; 
ans” SA TO a? 

1328 PRINT AT ES IT A. E LF 3 

r;=100 THEN bRINP AT da 23, "OR 

1393 50 TO 4510 

1908 IF afioi:> "4" THEN 60 TO 19 

14 

13902 PRINT AT 11,1; INR 7; BERIGH 

TA? ECSnAtinelis "o AT 12 153" 

1904 LET es=10: LET ea=7?: LET ef 

56: LET qd=o23 

13906 LET c$="Hemos destruido al 

Centinela Le Lo a e MANUAL 

A SUE 3000: PRINT AT 185. 

12" MANLIAL 

1243 60 TO 4510 

1910 IF a$1o1<>"t" THEN 0 TO 139 

340 

1911 INK 1 FOR 129 TO 12: FRIMT 
AT 1,1d2;" NE Y 

1912 INK 7“: BGRIGHT 1: PRINT AT 1 

Lt” TELES" LAT. 125,135 > PUERTO" 

13914 INE 4: BRIGHT 1: PLOT 100,1 

az CRA S56,40: DRAL A,-294: CRAL 

-13,0: DRAL -14,14: CORAL -10,-14 
3 


PRAEOTIrRIP: 
10 
Ey Pp E + 
DE 
1 


121 


122 


132% PLOT 108,93: DRAL 4,0: CORAL 
Q,-2: DRAL -4,0: DRA Q,2 

1921 PLOT 108,59: DRAL 4,0: DRAL 
a , eZ: CRALI -4 q: DRALI! a A 2 

13922 PLOT 06 33 CRA 4,0: CRA 
D,-2: DRA -4,4: DRA 4,2 

13923 PLOT 108%, S1. DRAL 4,0: DRAL 
Q.,-2: DRAL e OQ: DRAV 4,2 

13924 FLOT 144,36: CRA 4,-15: COR 

AN 3,0: CRALWL 0,15: DRA -1,0: COR 

AL E,-14: PRAL -1,0: DRAU 4,14 
19268 LET cé="En frente de nosotr 

03 vemos ei panel de control de 

TELEPUERTO Hay una ranura para 
colocar un dizco de mando": 60 

SUE 3000 

1923 LET tele=1: 60 TO 4000 

1938 IF a614)11):25"2" THEN LET € 
$="Este Cisco de Mando no es el 
COrrerto Nos Lo devuelve 
"- 60 S5SU6 3000: 60 TO 4000 

1932 LET có%="El panel de control 
Funciona Nos devuelve el dis 
co Y somos transportados a la pa 
rte de control de la nave GO Ss 

UB 3000 

1334 INK 7 ERIGHT 1 PRINT AT 1 
1, Li "No "¿RAT 12,1,"contacto' 
: LET DEl? 50 SUB 2084: GO TO 

1004 


ala IF a$101:<3"x" THEN 60 TO 41 
da 

1342 INK 1: FOR 1-9 TO 12: PRINT 
AT 1,132;' ">: NEXT i 

1944 INK “: BRIGHT 1: PRINT AT 1 
1,1; "PANEL CE"¡AT 12,1; “CONTROL 


19146 CLEAR 4: BRIGHT 1: FLOT 100 
E. DRAW 30,0: DRAW 0.-29: DRA 


1948 PLOT 102,100: DRAU 52,0: DR 


RAW 4,-24d: CRA -S2,0: DRA 4,24 
1354 PLOT 110,96: DRAW 0.-15S: DR 
AD 3,0: DRAL á, 15: DRAL -1,0: DR 
AN 0-14: DRAL'-1,0: DRA 0,14 
19852 PLOT 126,36: DRAL A,-15: COR 
AN 3,0: DRA 4,15: CRA -1,0: COR 
AL 4,-14: DRA -1,0: CRAL á, 14 
1954 PLOT 145,96: CRAL! a.-15: CR 
AL 3,0: DRANY 0,15: DRA -1,0: DR 
AU 4,-14: CRAL -1,0: CRA 4,14 
13984 LET c%4="Frente 3 nosotros h 
3Y UN panei de control con tres 
ranuras" SO SUB65 3000 
13982 50 TO 40009 
1284 PRINT AT 19,13; INR 7; BRIG 
HT 1; FLASH 1; "ACTIVO", FLASH 4: 
LET c5s="Marque zona Activada pa 
ra capsula E ESCape" GO SUB 30 


a] 
Es 


19866 LET 4%="ESTE"*: 
GO SUB 2000: LET 0 
2004: LET 050-1048: 
ET o=1049: 60 =UB 
SUR": LET 0=10%99: 
ET o0o=1149: 60 SUB 
332: 60 SUE 2000: 6 
2004 INE ld: FOR i= 
AT 1,12," 


20058 INE 7: BRIGHT 
is IF d$:<>"SUR" 
pl 


023 PLOT 95,104: 
RAN 0, -12: CORA -2 
HL TEMER PLOT 
ia PLOT 10m, E 
RAUL. 0,-13: ECRAL —- 
ode PLOT 180 104. 
CRA 4, -12: ERA 
O=li:3%." THEN PLO 
ll Q,-27: PLOT 155, 
CRA 4,-13: CRAL 
2034 IF a$io+50)=" 
15,394: CRAL 22,0: 
RAIL 23,4 
2040 RETLIRN 


2050 IF dx: "HNORTE" 


1040 
405 PLOT 295,104: 


RAL 0,-12: CRA -20,-11: 1F a$t 
1) <>." THEN PLOT ¡cor 101: DRAL 


LET 0=104€6: 
1047: GO SUB 
GO SUE 2800: L 
2004: LET 3JS6=" 
GO SUE 2000: L 
2004: LET 0=11 
o TO 9190 

E TO 12: PRINT 
E NEXT 


THEN 50 TO 245 


DRA 280,-10: E 
20,-11: IF aio 
¡an, 101: ORAL 
Ss CALI 39,0: — 

¿0 
DRALWL -20,-10: 
1 : 


7 155,101: DRA 


”- 


37: DRAL -3,04 
3,0 

no o PLOT 1 
PLOT 115,82: D 


THEN 60 TO 2 


ORAL 20,-10: D 
, 


0,-28: PLOT 100,96: DRA 9,0: C 


RAN 0,-183: DRÁL -3 


2069 PLOT 150,104: 
DRAL 90,-12: DRAL 


Ls) 
DRALN -20,-1(: 
0. -11: IF $! 


o+l1i1<2" "THEN PLOT 15 5,101: DEA 


WHQa,-22:; PLOT 1565, 
CRA 0,-13: CRAL! 
2070 IF a$lio-50)=" 
15,94: DEAN 25,0: 

RAN 25,0 

2050 RETURN 

2100 IF d$<>"ESTE" 
Sa 

114 PLOT 395,104: 


RAL O 0,-12: DALI -2 


97: ORAL -9,60: 
30 

«" THEN e 1 
PLOT 115,82: D 


THEN $0 TO 21 


CRAL 20,-10: E 
0,-11: IF a$l0 


-501:<>"." THEN PLOT 100,101: DRA 


ll O,-23: FLOT 100, 
CRAWV -0,-15: CORAL 
212409 PLOT 150,104: 


04501 :<>%,% THEN PLOT 158,101: 


26: CRA 39,0: 


- Y A a 


CRA -24,-164: 
20,-11: IF Er 


CRAW 0,-13: DRAL 9,0 


2130 IF agio+l)=", 


í 
R 
AL 0,-27: PLOT 155,97: CRAU -9,0 
q 
R 


“"THEN PLOT 1: 


94: DRAW 25.0: PLOT 115,852: CO 


E 

AU 25,0 

2140 RETLIRN 

2150 PLOT 95,104: 


CRAL 20,-10: D 


FAL 0,-12: CRA -20,-11: 1F ag$to 


123 


124 


+501 <>." THEN PLOT 104,101: CR 

VW 0,-28: PLOT 100,96: DRAL 9,0: 

CRAWV 49,-15: DRALUI -9,0 

2160 PLOT 150,104: DRA -24,-1 
RAW 0,-12: CRAWY 20,-11: IF 3 


Bl 
2-S501:<>%"." THEN PLOT 155,101: OR 
TM] a A 27 - ELOT 155 , 97 , CRAU «$ A [8] 
: CRAL 9,-13: CORRAN 9,0 
2170 IF a$io-1li=".," THEN PLOT 11 
5,9d: DRAU 25,0: FLOT 115,582: DR 
AU 25,0 
2150 RETURN 
2198 STOP 
2922 LET 2c%=:18$+3TR% b: LET có: 
+35" 0 GO SUB 3004 
30049 INE 7: BRIGHT 1: FOR i=1 TO 


3010 IF ¡>25 THEN GO TO 5100 
30290 PRINT AT 1,29-1,c$/1 TO 11 
3025 BEEP de ans; - -12 


= 
3044 6d To” 3200 


3100 FOR m=1 TO LEN c%-25 
3129 PRINT AT 1,3;cS$/m TO m+25) 
3125 BEEP 4.005,-12 
3130 NEXT m 
3204 FOR i=1 TO 100: NEXT ií: PRI 
NT ATI 1,3;" 

3210 RETLIRN 

3500 LET c$="Sistema de armas ac 
tivado": GÓ SUB 3000: INK 7: BRI 
GHT 1: PRINT AT 158,12;" ARMAS , 
3505 LET Os=INT (Lir10) 

3514 LET ad=INT (drr12) 

3sS20 LET Of=INT (Wes1Qq) 

3530 LET 03=INT larr1a) 

3S540 LET ¡a33=05+0f 

35550 LET ¡eas=e5s+ef 

3555 LET as=ias+ INT (RNCR<12)4+1 
3556 LET eaz=i83as+ INT” (RNCx*12)+1 
35650 IF INT (RNDx10):<S THEN GO T 
O 35380 

3565 LET aszas+2: LET c%4="Lo hem 
Ds sorprendido!" : GO SUE 3040 
3574 0 TO 3600 

35380 IF INT (RNC*10)5= THEN GO T 
O 3600 

3595 LET e32:633+2: LET ¿S$="Nos 
ha o GO SUE 30005 
3620 IF as:eas THEN LET c="Ha 

GO TO 3635 

3630 LET c%="Hemos' 

38535S LET rno=RANCR<*10 

36404 IF rnd>9 THEN LET c=c+" 3 
enerado una explosion de rayos e 
YLIRIM": GO SUBE 30900: GO TO 37580 
3S56S IF rnd:S THEN LET cázecóg+" 1 
anzado Una rafada de laser": 60 
SUB 3000: 50 TO 3750 


3660 IF rn34>7? THEN LET có4$=c5+" 3 
3turado la zala con fuego laser" 
¿GO SUB 3008: 50 TO 3750 
3670 IF rnd>6 THEN LET cá%=cg+" t 
11rado un rayo de CEUTIRIUM": Gu 
SUB 3000: 50 TO 37509 
3S6sa IF rnd:S THEN LET c5$=cS+" h 
echo un agujero en la coraza con 
un disparo fismico": GO SUE 300 
40: 0 TO 3750 
355690 IF rnd:4 THEN LET c%=c%9+" dd 
irigido un impacto de enerdia de 
iS SO SUB56 35040 SU -T70 << 
37008 IF rn4>3 THEN LET có%=c6+" 3d 
isparado un rayo de radiacion ma 
3iva": GO SUE 30048: 50 TO 3750 
3710 IF rnd>2 THEN LET cóS=zcg+" Ll 
anzado un potente rayo de COLAFS 
IUM": 60 SUE, 30800: 60 TO 3750 
35720 IF rad? 1 THEN LET có%=c+" 3 
13parado uñn afilado raya de IGNI 
TRON": GO SU6 3000 : GO TO 3750 
3734 LET ae lanzado un rayo 
puisante > TYLIRIUM": GO SUB 3 
aan 
3750 IF as:2833 THEN 60 TO 3310 
3750 IF ENDi20>8e3a THEN LET 8:3=e3 
3785 IF as-23354 THEM LET ea=e3- 
3766 IF as-233568 THEN LET ef==ef- 
INT (RND+*S) 
37? LET ed:e4-INT ¡(ENCFS) 
3755 1F es:<-=0 OR ef:=0 OR ed<=Q0 
OR 23:20 THEN RETUEN 
S? TO LET 2$=" Lo hemos averiado! 
": GO SUE 39400 
5750 60 TO 3955 
2514 IF RND>.S6 THEN LET c="No h 
3 habido averia la pantalla ha yr 
esistido”": 50 SUE 30: GO TO 35 
as 
35315 LET c$="No=s ha averiado. IN 
il DE AUERIAS...": 60 SUE 300 
a 
3530 LET Lg=1Li-INT [RNCFZO1 41: Es 
ET 2s="EquUuiPpo de supervivencia a 
veriado en ": LET b=AB6S 100 INT 
((Li-“L4us*1001 11 
235=1 IF b>100 THEN LET b=100 
3522 LET 26=:94+3TRS% b: LET c5=36 
FUE": GO SUB 3000 
3923 I1F ty<10 THEN LET etf="Super 
vivencia": PRINT AT 14,28%; "Gas": 
50 TO 3900 
33825 LET li=14: PRINT AT 14,23; 1 
NToOLi"x": IF Lli>=100 THEN PRINT 
AT 14,253; "OR ne 
3830 LET du=dr-INT (¡RNC:<10)+1: L 


125 


126 


ET c6="Motor averiado en ": LET 
E=AES (100-INT ((dr344:1001 15 
33931 IF b>100 THEN LET E=100 
3Sa32 LET c$=2C0$+53TR% b: LET cóS=c5 
+42": GO SUS 3000 

3834 1F 3du:x10a THEN LET esf="Motar 
20 PRINT AT 3,23; "uaxzx": GO TO 94 
a 

3335 LET dr=4Y: PRINT AT 3,23; IN 
> A O E dr>=100 THEN PRINT 
AT 3,28; “OK d 

35d0 LET vu=we-INT (RNDe:2014+1: L 
ET cs="Armamento averiado en ": 
LET E=AES (100-INT— [ (y -«4e<100) 1 
J 

3842 IF >100 THEN LET E=1u4 
SOLAS ET e CS$+5TR$% bb: LET c%=cG 
+02": GO SUE 3000 

334S IF wu<14a THEN LET ve = y: PR 
IN AT 52 "DO": LET es5=" "ARMAS 


Ga 
0 
—H 
0) 
¡AN 
“0 
15 
O. 


ve=zuWw: PRINT AT 56,=23;¿ue 
we>+=100 THEN PRINT PATOS 


LET vg=zwi-INT (RNDz20)1 +1: 
c$="Vision averiada en ": LE 
(IAA-INT ( (vy «*vi2100)1)) 
IF b>1808 THEN LET E=100 
LET c$=c$+5TR%4 b: LET c%=356 
GO SUB 3000 
ds IF vy:il0o THEN PRINT AT 10,2 
: eb$="lUisual": PRIMT 
0/23; CaaK”: SO TO 9300 
LET “i=w4: PRINT AT 10,23; 
il vi>=100 THEN PRINT AT 


sy=8c-INT (RND*S201+1: L 
nner averiado en ": LE 
QU-INT ((s54Y scr 10011) 
pl THEN LET b=100 
=C$+5TRS$ b: LET cá%=c5 
UE 3000 
14 THEN PRINT ie E 
o e$="Scanner” RIN 
G0 TO asa 
PRINT AT 12,23; 
"4%": IF s5c>=100 
NS “AT 
A 


Hu pg ceyesco-INT (RND+ZO0)1 +1: L 


ma Je; 
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T cá$="Computador averiado en ": 
¿LET b=ABS (100-INT t(cy-coz100) 
4) 

3921 1F 61090 THEN LET E-=1l0a0 
3922 LET CcS=c4+5STR$5 b: LET c5=c5 
+4": GO SUE 3000 

3925 IF cu<l1lA4á THEN LET 25%="Compu 
tador'": PRINT AT 16,23; "00%": GO 
TO 92300 

3934 LET co=c4: PRINT AT 16,23;07c 


po Sl co>=100 THEN PRINT AT 

Ñ 1! 1 17] 

LET ay=zar-INT (RNDe£20)+1: L 

= Pantalla averiada EN. ASE 

A (100-INT ([a384Y.+ :arg*l100))1 

IF b> 100 THEN LET b=100 

LET có=c%4+5T7R% tb: LET cós=có 

GO SUS 3000 

IF ay<la THEN LET O 3 
PRINT AT 13,23," a4a (oO GA T 


ar=a Y: PRINT AT 12,.28;3 
car>3=100 THEN FRINT AT 


a, es=A OR ef=0 OR es=0 OR 
THEM RETLUAN 

cad TO 3545 

4000 DIM q$112,15) 


co = 
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200 A 40 On" - 
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A E E 
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- 40 
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34020 IF mnb=1 AÑO: KEY GE" 'A" THE 

N GO TO 4S0u 

4021 LET k$=INFEYS%: IF k%="" THE 

N GO TO 4421 

4025 IF CODE kK$-13 THEN PFRIMNT ET 
23," ": LET i¡i5$2i86+*" ": 60 TO 


4036 IF CODE k$=12 ANC LEN 14:50 
THEN LET i¡i6$=1%$/1 TO LEN 14-11: 


4927 IF CODE K$=18 THEN 60 TO 40 
10 


3030 LET i4zi4$+k5 

18031 IF LEN 1485=95 THEN LET ch$=" 

Lo siento, comando demasiado ¿ar 

aqu, repita": 60 SUE Sa04: 60 TO 

4000 

4032 PRINT ART 1,3;" 

d03S IF LEM ¡$24 THEN PRINT AT. 
3015 (LEN 14-24 TO LEN 1561 - 
50 TO 4dazea 

¿íQ40 PRINT AT 1.23-LEN 18:18; "-" 
GO TO 4424 

¿ase LEFT tastesl: LET el: FOR 1= 

1 TO LEN 15 

40590 IF i$lij=" " THEN LET qíivi 

sibilast “da i-11: LET lastz1i+1l: 

LET v=w+1 

1074 NEXT 1 


434asó PRINT AT 1,53 

409S REM 

4100 REM eliminador de articulos 
4105 REM 

4110 FOR h=1 TO v-1 


410 IF q$1h1 (1 TO 21="e1" OR 216 
URI 11 TO 2i="l3" Ok o TO 2 


'de" THEN FOR i¡i=h+1 TO Y: LET 
Li=11=I6t13): NEXT a 
30 NEXT . 
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4200 REM claves 
4210 IF 3941171 TO 4di="abre" THE 
N GO TO 43gu 

'cambia'" T 


4224 IF 31511211 TO El 
HEN 60 TO 4506 
42509 IF 3$1(13 11 TO 101="inventar 
10" THEN 60 TO 45400 
425% IF 3$111 11 TO 6)="espera" T 
HEN 50 TO 4700 
4255 IF 3$1(11 11 TO S1="pauzsa" TH 
EN GO TO 4760 
4274 IF 34117 (1 TO Si="a3raba" TH 
EN GO LO 439080 
qe? IF 9q$/11 1 TO S)="carga" TH 
SO TQ dano 
1F qsti) (2 TO 4)="toma" THE 
TO Elan 


tl 


m 
¡a 
se 


FP 
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TO ?)="inserta" 


TO S)="marca" TH 


00M CO CO 
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Di SrRie 
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NA 


Djs 
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—m 
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a 
>"0" AND a%5lo+h 
c4="No veo mada 
Sub 
3 


cBARARMPEARZE 


2 ADO AM LAMA 2 ADD LI ARO A E MZ TS 
TH 
Vd :1 


3000: GO TU 


FJ] mw: 
m 


JS NIC A Ey e Ey UI 
THPOCUOIZHO PTReddHiDdA 


BÍOR_ p 
SL SEO E 
y —. 


ea q 
pe | 


BP í 


“re 
YT: 


= Cd 

A _ THEN LET có$ 
Uavemente”: 
O+ Rd O: 
Í GO TO 4000 

TO 11="1" ANC ca 
='"NO poseemos el 

40 1": GO SUE 3000: 


3J(1 TO 1)="2” THEN L 
5sc0 de mando 2 no pe 
puertas": GO SUB 300 
a 
| 


3(1 TO 1)1="3" AND cd 
hjl="p" THEN LET c$ 
abre suavemente”: 
0: LET a$ilo+hj)=” “: 
j="" ": GO TO 4000 
1 TO 1)="3" AND cd 
C$="No poseemos el 
3": GO SUBE 3000: 
parada 


$161 1 TO 1)="1" ANC as5 
* THEN LET c£="E!l disco 


[eE 
mn 


TP 
ya] 
dl + QU 2 


ds y 
ds Lo dl Bo 
o MO 
7 1 Cs 
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ART A ARA 
ld 


4 M--. Qe -.- 


an 
19) 
o 


hh 
10 A Es —ÁH 0 
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NP0mM7-02€ 2764 ME — 7 


+0 
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4O*BAMPB.RIO RE 
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DO A 
DM SwzZ 
27400 
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wr Ti 
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TO AAA 
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+ Cu da 04 


RCTUIZH 
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E 
H 
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CLIO 4 amas 


+ 00 
Om 


de mando 1 no permite abrir est 
3 puerta" So SUB 3004 GO TO 40 
4390 IF 414415) 1 TO 1)1="3" AND a5$ 
(a+hjl="0"” THEN LET c$="El disco 
de mando 3 no permite abrir est 
AOS So SUB 3000: GO TO 40 
4325 LET CO entiendo. puede 
A 50 SUB 30060: GO TO 40 
4500 LET cs="Cambio 3 modo MANUA 
L "- GO SUB 30400: PRINT AT 13 
¿12 INK 7; BRIGHT 1;'" MANUAL e 
: LET O cg="Motor preparado Ss 
istema de Traccion a ": LET c$=c 
$+S5TRS$ dr LET crgcgr+ A e GO 
SUB 309009 
4510 IF d$="SUR" THEN GO TO 7100 
le IF d$="NORTE" THEN GO TO 72 
NS IF di="ESTE"” THEN GO TO 730 
Edo IF de="0EÉESTE" THEN GO TO 74 


an 

4600 LET c$="En este momento dis 
ponemos de: -= ": IF rd=1 THEN LE 

c$=C0c4+ "Un Arma Antirobot “" 

4605 IF cdiz=1 THEN LET c=cg+"Di 

s:c0 de mando 1 

4810 IF cd2=1 THEN LET cá%=c$+"01 
3020 de manda 2 

4615 IF cd3=1 THEN LET có$=c$+"0i 
3cOo de mando 3 

4620 IF rd:4d AND cd1=4 AND c342=0 
AND cd3=Aa THEN LET C=c%4+"nada" 
4530 GO SUB 3000 

48409 50 TO 4000 


4709 LET cs="Desconectando todos 
los sistemas Para reactiva 
rlios pulse qualquier tecla": 60 

=U6 3000 

47104 INK 4: FOR i¡=103 TU Le 3TEP 
-1: PLOT 956,i: DRAWY 63,4: NEXT 


.. 


4715 PRINT AT 18,12; INK 7; BRIG 
HT 1; "DURMIENDO" 


4720 IF INKEYS$="" THEN GO TO 472 
Pa] 

4730 INK 1: FOR i¡=9 TO 12: PRINT 
AT 1,12;" o INEA 


47140 GO SUB =000 

4750 LET c4="ORCENACOR preparado 
": GO SUE 3000 

4760 PRINT AT 13,12; "ORCENACOR" 

4?7a4a 0 TO 4409 

42300 DIM w1i1l41 


42905 LET ví14)=nane E 5 
4910 LET vi(1)=cd1: LET uy (2)=cd4d2: 
LET wií3)=cd5: LET vwí/d)=rgd 


129 


5 - HURLEY 


130 


o: LEF 916)=dr: LE 
wíS)]=co: LET wi9! 
Si LEFT WELLES 


4930 SAVE "Datos Mut”" CATA uti 
4940 LET c$="Desea continuar? (s 
7d a EN GO TO 3000 

42945 IF IMKEY5S$="s8s" THEN 60 TO 44 


a 
43954 IF INKEY$="n" THEN FOR i¡=10 
3 TO 72 STEF -1: INK 4: BRIGHT Qu 
PLOT 96,i: DRA 63,0: NEXT 1: 


4955 60 TO 4945 


S200 LET c5$="Introduzca la cinta 
de datos Y pulse cualquier tec! 
3": 60 SUB 3000 

5010 LOAD "" DATA wi) 

Ss020 LET c3d1l=w1(1): LET cd2=u (2) 
LET cd3=w (3): LET frd=w(4) 


SO3M LET 0=0tT5): LET. di =Wwt0): LE 
ar=wf(?): LET co=w(3): LET ves 

(97: LET. Yi 296 1187 =+ LET-U1= ELUFA 

LET s8c=4 (12) 

SAs3S LET mnb=w (14) 

040 50 SUB 2000: GO TO 4000 

5100 IF 9512) (1 TO 5S)<>"disco" O 

FR q$13)1(1 TO Si<>"mando'” THEN LE 

T c$="No entiendo, puede repetir 

5: GO TO 400909 

S110 IF 954(4) (1)="1" AND abfiol=" 

7" THEN LET as$1(0)=" ": LET CS="H 

emos recogido el dizco de mando 

1": 60 SUB 3000: LET Cdiz1: GO T 

O 4400 

S120 IF qs id) (1) ="2" AND a$io)=" 

S” THEN LET aftio)=" ”: LET ¿S="H 

emos recogido el 3d 

2": 60 SUE 3000: L 

O 4000 

5130 IF 94143 (1) =' 

9" THEN LET asg$1o) 

emos recogido el 


sco de mando 
T cd2=1: G0 T 


i 

E 

3" AND a5$10)=" 

> LET.C83S"H 
isco de mando 

ET cd3=1: GO T 


5140 LET c$="No es visible": 60 
SUB 3000: GO TO 4000 

5200 IF 2q$14) (11="2" AND cd2=1 A 
ND a$í01="t" THEN GO TO 1932 
5210 IF a$to)1<>"x" THEN LET có=" 
No puede hacer esto 33qui": GO SU 
65 3000: 60 TO 400 


5218 IF mark 
N LET c$="An 
ultimo disco 
capsula de 


5d AND contro 

de introd 
debe encon 
ape y marc 


m0 O + 1 


Sm gm. m 
a E 


GO SUB 300: TO 4000 

5220 IF q$(4) (1)="1" THEN $ 
="Se inserta disco de m 0%. 4 
": GO SUB 340 LET cd1=0 y 


go 
a Ta 
na 1 
tr 


—ÁÚ n 


ls T1F controls 


2" THEN LET « 
1300 de mando 
T cd2=0: LET 
Lo IF Ccontrot=3 


ye iS”: THEN . LES 
disco de mando 

LEF  cdu=g: LET 
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="Z"” THEN LET m 

a de escape 

ne la nave!”": 60 
4000 

*9qUui no hay ningu 

SO SUB 3000: GO TO 40 


25 100 INKEVYG: IF z%="" THE 


F o 1 ANC z2$="4") OR 76 
THEM LET cs="Uvelvo a modo 

Ae GO SUE 3000: PRINT A 
e "ORDENADOR": LET c$="0ORD 
Preparado ": GO SUS S004: 
¿4000 

 ¿inb=1 AND 24=" 2?" THEN LE 


Mmnb=1 AND Z4="£" THEN LE 
MmMb=1 AND 24$="8" THEN LE 
AND Z%4="9'" THEN LE 


Z4="5" OR z24="86" OR z 
7 OR 2g= "3" THEN 60 T 
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A o A 
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$ 
ANC a$0+501="." THE 


(0+S01="0" OR a$o+501 
T hiz=+540: 60 TO 1619 
THEN LET 0=04+50: 60 

O SUB 2000: IF a$10o1< 
o TO 16104 

a EN LET Ass" UESTE”"= 


3 THEN LET d$="ESTE": 
THEN LET dés"NORTE": 
¿14 
NREVS: IF z2$="" THE 
1 AND z2$="8") OR 73 


c$="Uvelvo a modo 
SÓ SUE 3000: PRINT A 
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TR Pre 
MePU R+Nrrs -) 
m 
4 ZA y 0 


A a RT A 2 00 mM 
H 
me 


'wD 


me 


LS 
A 
DZ--J 30,0 5,0 (0,0 Z-- 


o 


A Y 
Y) 


TT: 
_ 
mu 


2d 3 sl 
MPDPOrPGr 


075 AUEIO 


101) 


MNCO'QO4Sn 


TIRA BRAND JO - 


P006 


[IÓ 


= 
=: 


MTr5On +6 


DINCOMCOTR NO TVTOTNTITNSTMO 


Cm 


m G 
Z 
DAMRAFOCADACHARIMAAHAHAAAHTOO 


Du -JZ-J- 


D 


131 


132 


12; "ORCENADOR": 
preparado 
¿2000 

 mnb=1 

MAb=1 

Mn 1 


Mmñb=1 


LET có$="0RD 
50 SUB 3004: 


FHEN.-LE 
THEN LE 
THEN LE 
THEN LE 


= nr 
dle 8 THEN 


mA 


Unz 


fu 
MONSMNENOSD> 
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fu 
2H 


mu 
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tl 


z4$=" 


SO T 


fo 
Ss 
H 


PD 


7200 
=UAL 2% 
AND a$fio-S50)=".'" THE 


(0-50) ="0" OR a$lo-50) 
LET hi=-S0: GO TO 1810 
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RR a-) 


4. 


FO E far 


2 Na 


mu 
DPTO: 
y CON AO COR CN Par 4 


A A 


THEN LET o0=05-50: 650 

El SUB 2000: IF a%/0)< 
TO 161214 

THEN LET a5="ESTE”: 


De 335, THEN LET' d$="DESTE": 


S7F Qe ¿ HEN LET d$="SUR": 
aga 
GO TO 4510 
LET Z286=INKEYS: IF Z24="" THE 
TO 7300 
imnb=1 AND Z4="40") COR 2725 
HEN LET c$="Uvelvo a modo 
"- GO SUB 3000: PRINT 
"ORDENADOR": LET c%="0R 
reparado ": GO SUB 3000 


e: 

¿Mmb=1 AND 724="6" THEN LE 
AND z$=""7?" THEN LE 

AND Z$="3" THEN LE 

AND zZ4$="9" THEN LE 


IF 724="S" OR zZ24="6" OR z$=" 
24="7" OR 24="3" THEN GÓ T 


O TO 7300 
ET q=uUAL 26 
F q=7 AND a$ío+1)="." THEN 


?30qa 

F afio+1)="0" OR a$ío+1li= 

N Pp hiz=+1: GO TO 1610 
THEN LET 0=0+1: GO $S 

SUB 2000: IF a$/0):<> 

TO 1610 

THEN LET dó$="SUR": 
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7340 IF q=5 THEN LET 3J$="NORTE": 
G0 s5UB 2040 

7350 IF 9:26 THEN LET d$="DESTE": 
G0 SUB 2000 

7360 G0 TO 4510 

7400 LET Z4$=INKREYS: IF 2%="" THE 
N 0 TO Erie 

7401 IF ímmb=1 AND Z$="0") OR 275 


="4" THEN LET có6="Vuelvo a modo 
COMPUTADOR": 5605 SUB 3400: PRINT 
AT 13,12; "ORDENADOR": LET c$="0R 
CENACOR preparado ": GO SUB 3040 
: 0 TO 40002 

74n2 o mmb=1 AND z2%$="6" THEN LE 


SS mmb=1 AND z2$="7" THEN LE 
JE, mba =1 AND 2$="8" THEN LE 
IF Mmb=1 AND z24$="9" THEN LE 


Z4="5" OR z4="5" OR z4=" 
="7" 0R 724="5" THEN GÓ T 


O 7400 
LET q=WAL 275 
IF q=7%* AND a$lio-11=".," THEN 
7£0a 


p 
pa] 
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mn 


SO 
PI 4 u 


A a E a 
na 
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10 


- 
="0" OR a$lo-1)= 
¿60 TO 1610 
THEN LET 0:0-1: 60 3 
SUB 2000: IF a$10)<> 


THEN LET d$="NORTE": 
THEN LET dá="SUR": G 
THEN. -LET dES"“ESTE”: 
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: >. BRIGHT 1: 
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A INE 4: BRIGHT 1: PLOT 100,1 
DRALW SE, DRALWL 4A,- 29: CRAL! 
0: DRAFIL! 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE ; 
LET ch=" e a nosotros kh 
una CREÉSULA ESCAPE ": GA Ss 
3000 


150 IF control<>3 THEN GO TO 40 
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78 LET c$="La puerta la abre y 
ntramos "- GO SUB 3000 


> INT AT 1 


133 


134 


3130 INK 1: FOR ¡=39 TO 1: PRINT 

AT 1,12," “ MEXT 1 

3190 INK S: PLOT 95,54: DRAU 85. 

FLOT 122.54: ORAL -27,20: PLO 

230 PLOT 125.94. Blor 190,103: 

OT 140,99: PLOT 115,94: PLOT 1 

109: PLOT 145,37 

14 PLOT 105,584: DRA 0,-5S5: DRA 

eds DRALI Ó,5: PLOT 110, St D 
-5: PLOT 145,84: GRAU ¿5 

e c4="ESCAPANDO sil e 

3000 

FOR i=1 TO 40: BEEP lyi,i: 


1 
LET cs$="Mensaje recien reci 
del MANDO: - “GIEN HECHO! 
¡TAMOS UNA NAVE A RECUGERLE 
S VEREMOS EN TRES CIAS : GO 
INK 1: FOR ¡=9 TO 12: FRINT 
- E > IA ". NEXT ii: PLO 
+04: CRA 65,0: DRA 4,-33: 
-565,0: CRA 0,33 
“INK E BRIGHT 1: PRINT AT Y 
"OTE" ¡AT 10,14; "viaje" "¡AT 1 
A E ni' 
IF INKEVS$="s" THEN RUN 
F INKEY$="n" THEN NEL! 


NK 9: BORDER 7: PAPER 7: B 


; a 
PLOT 4,04: DRAU 255,0: DRAUW 
S: DRAL) -235,0: DRAL Y, -175 


9) a 
na € 


TAZA IO TÁ 


Z Me 0 Mi Cno TD 


0D Mie e 0 04 00 -J A DIO A ON OZ AL A ON le 
SON 


HF ún 


EMO Dm 
eE 


GUA OM TO Ma 


GUS TAO A 
CU 


,¿0: 60 sub 23500: 
UB 29500 

2559 PLOT 156,71: DRAL 48,0: GO 
SUB 2800: DRA) 7.3: GO SUB 293500 
295569 PLOT 120,62: DRA 114,-4: 

O SUB 3300: ORAL 3,4: GO SUB 950 


9570 PLOT 237,103: DRAU 0,2: GO 
SUB 9800: PLOT 235, 103: DRAWU 0,2 
: GO SUB 9800: PLOT 239,105: DRA 
VU 8,4: GO SUB 9800: DRAU -8,-2: 
GO SUB 3800: DRAL 0,-2: GO Sub 
500: DRA 3,0: 60 SUB 9500 

3559 PLOT 215,71: DRAW 17,7: 

SUB 23300: DRAWY 0,-3: GO SUB adoo 


: DRAW -17,-4: GO SUB 95490 

9590 PLOT 220.89: DRAW 21,0: GO 

SUBS 34300: PLOT 221,90: DRÁU 21,0 
: GO SUB 985%0 

259009 PLOT 239,37: DRAU 2,-2: GO 

SUB 3800: DRAL ,-16: GO SUB 38380 
Q: DRAW -2,- 

396108 PRINT ar Lido. CAOHZA 

DOOR MU T";AT s,2; un JUego q 
e aventuras”";¡;AT 19,2; FLASH 1;"P 
aa UNA TECLA PARÁ JUGAR"; PAPE 


3620 PLOT 19,144: DRALN 210,0: DR 
AY a,-9: DRAY -210,0: DRA 0,9 
2630 IF INKEYS="" THEN GO TO 963 
E 


2640 RETURN 
2500 BEEP 0,005.30: RETURN 


3904 FOR ¡=1 TO' 50: PLOT 128,88 
DRALUW 126- INT ¡RND*240) ,87-INT í 
END:*150)1: BEEP 0.005,64: NEXT i 
291a LET cH="Hemos sido destruid 
0sS. ha fallado el ": LET ch=c$+e 
$: LET có$=c6+ Desea volvwerlu 
7 intertar? (s.m) ": GO SUB 300 
3324 IF INFEYS%="s" THEN GO TO 19 
aa 


3939 IF INKEY$="n" THEN NEL 
9340 G0 TO 9s20 


“. “RETURN 


El escenario 


Corre el año 2084 y la galaxia está bajo el control del Mando de la 
Federación Terrestre (MFT). Desde la Gran Guerra Galáctica de 2036 
a 2054, después de la cual se creó el MFT, ha reinado la paz en la 
galaxia y el único peligro son las grandes naves de guerra destroza- 
das que navegan a la deriva. Los ocupantes de estas naves han muta- 
do a lo largo de generaciones en peligrosas criaturas de inmenso 
poder. 

Este hecho ha obligado a la creación del Cuerpo de Cazadores 
de Mutantes, cuyo único objetivo es buscar y destruir las naves de los 
mutantes. Cada cazador Mut —así es como se llaman los componen- 
tes del Cuerpo— trabaja solo, viajando en su pequeño caza que 
puede desplazarse a gran velocidad en el espacio y también dentro de 
las naves gigantes. 
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Instrucciones 


Su misión se sitúa dentro de la nave de guerra XXVII/IV. Debe 
recoger tantos Discos de Mando como pueda e ir al Telepuerto. De allí 
será transportado al área de mando de la nave, donde encontrará una 
cápsula de escape, que debe ser marcada, y un panel de control, que 
deberá poner en posición de autodestrucción de la nave. Esto puede 
parecer muy simple, pero recuerde que durante su misión encontrará 
muchos peligros. 

Cuando empieza el juego, usted se encuentra frente al panel de 
control de su propio caza. En el centro de la imagen está representado 
el corredor en el que su caza está posicionado y a la izquierda hay un 
radar que le informa de cualquier cosa anormal que suceda fuera. Su 
caza dispone también de un panel de indicación del estado de los 
instrumentos de su nave; si alguno de los indicadores llegara a f, su 
misión habría terminado trágicamente. 


Ordenes de mando 


Cuando se encuentre en modo COMPUTADOR, puede dar las 
siguientes órdenes: 
ABRE ...CON... Abre algo frente a usted. 
TOMA... Recoge algo situado frente al caza. 
INVENTARIO Da una lista de elementos ganados durante la misión. 
INSERTA Añade un elemento a la imagen situada en frente. 
ESPERA Desconecta todos los sistemas temporalmente. 
MARCA Marca la cápsula de escape para retornar automáticamente 
después de poner la nave en autodestrucción. 
GRABA Graba el juego en la situación actual. 
CARGA Carga un juego previamente grabado. 
CAMBIAR Cambia de modo COMPUTADOR a PILOTAR. 


Todas las órdenes de mando y las respuestas desde ordenador 
se imprimen en la parte superior de la pantalla. 


MODO PILOTO Este modo se utiliza para pilotar el caza mediante el 
mando para juegos 1. Pulsando FUEGO el programa se coloca en 
modo COMPUTADOR. 

CAZA Si encuentra algún elemento hostil, el ordenador se coloca en 
modo ARMAS sin que pueda cambiar este modo manualmente. 


¡BUENA SUERTE Y MEJOR CAZA! 
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Indice analítico 


Agenda electrónica, 47-68 
formateado, 50 
inicialización, 50 
instrucciones, 43-46 
libro de cumpleaños, 66 

Almacenamiento de archivos, 69 

Archivo, 22-33 

Archivo de datos, 20-21, 83-84 
gran archivo de datos, 69-73 

Autoejecución, 16 

AVENTURA, programa, 86-94 

Aventuras, 85, 111 


Base de datos, 69 
actualización, 71 

BASIC, 11, 13 

Bit, 95 

Byte, 95 


Campo, 22, 23 

Canal, 18-21, 97, 98 
Capacidad de memoria, 69 
Cartucho de microdrive, 14 
Cartucho ROM, 109 

CAT, instrucción, 14 

CLOSE +, instrucción, 20, 24 
Comunicación serie, 95 
Corriente, 18-21 

CROQUIS, programa, 111-113 


DIAP. 1, programa, 102 
DIAP. 2, programa, 102-106 
DIARIO. 1, programa, 47-50 
DIARIO. 2, programa, 51-53 
DIARIO. 3, programa, 53-63 
DICCIO. 1, programa, 74-75 
DICCIO. 2, programa, 75-79 
Diccionario Inglés/Español, 74-81 
base de datos, 80, 81 
instrucciones, 79-81 
programas, 74, 75 
DIRECC. 1, programa, 34-37 
DIRECC. 2, programa, 37-43 


EL CAZADOR MUT, programa, 
114-135 
instrucciones, 136 
ERASE, instrucción, 15 


Final de archivo (EOF), 23, 25 
FOR... NEXT, 23 
FORMAT, instrucción, 96 


Impresora, 20, 101 
IN, instrucción, 110 


- INKEY$+*, instrucción, 84, 109 


Instrucciones de datos, 22 
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Instrucciones, 20, 23-24, 95, 136 
CAT, 14 
CLOSE, 20, 24 
ERASE, 15 
FORMAT, 96 
IN, 110 
INKEY$, 84, 109 
LLIST, 97 
LOAD, 16 
LOAD*, 16 
LPRINT, 97 
MERGE”, 16 
MOVE, 20-21 
OPEN+, 20, 24, 96 
PRINT+, 24 
SAVE, 15 
SAVE”, 15 
VERIFY, 16 
VERIFY”, 16 
Interface RS323, 19, 20, 95-101 


Libro de cumpleaños, 66 
Libro de direcciones, 34-46 
instrucciones, 43 
programas, 34-43 
LINE, instrucción, 15 
LLIST, instrucción, 97 
LOAD, instrucción, 16 
LOADY*, instrucción, 16 
LPRINT, instrucción, 97 


Mando para juegos, 109-111 
Matrices, 15- 22 

MERGE”, instrucción, 16 
Microdrives, 13-16, 69, 84, 102 
MOVE, instrucción, 20-21 


NEW/RUN, secuencia, 64 


OPEN+, instrucción, 20, 24, 96 
Periférico, 18-19, 95, 101 
PRINT+*, instrucción, 24, 96 
Proceso de datos, 22-33 
programas, 25-33 
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Programa 
AVENTURA, 85-94 
CROQUIS, 111-113 
DIAP. 1, 102 
DIAP. 2, 102-106 
DIARIO. 1, 47-50 
DIARIO. 2, 51-53 
DIARIO. 3, 53-63 
DICCIO. 1, 74-75 
DICCIO. 2, 75-79 
DIRECC. 1, 34-37 
DIRECC. 2, 37-43 
EL CAZADOR MUT, 114-135 
Leer y escribir, 28 
Proceso de datos, 22-33 
Solamente escribir, 25 
Solamente leer, 26 
TARTA, 101 

Programas DP, 25-33 


Red, 82-94 
archivo de datos, 83 
aventura, 85 
emisión, 85 
programas, 83 
sincronización, 84 
Registro, 22, 23 
borrado, 44-45 
cambio, 45 
RS232 interface, 19, 20, 95-101 
canal binario, 97 
canal texto, 97 
instrucciones, 95 
FORMAT, 96 
LLIST, 97 
LPRINT, 97 
OPEN+*, 96 
PRINT+, 96 


SAVE, instrucción, 15 
SAVE”, instrucción, 15 
SCREENS, 102 
Sincronización, 84 


TARTA, programa, 101 
Teclado, 20 


TELEFONO, archivo, 25, 28, 29, 32 
Tratamiento de archivos, 24-32 


Unidad central de proceso (CPU), 
18, 19 
Unidad de control, 18 


Velocidad de transmisión, 95 
VERIFY, instrucción, 16 
VERIFY”, instrucción, 16 


ZX-Interface.1, 13, 16, 22, 82, 95, 
102 
ZX-Interface.2, 109-136 
CROQUIS, programa, 111-113 
EL CAZADOR MUT, programa, 
114-135 
Instrucciones, 109 


139 


Otros libros sobre MICROINFORMATICA 


C. Prigmore MICROSOFT BASIC 
Curso de autoenseñanza para principiantes 
G. Ladevie La gestión con BASIC 
Comercio y pequeña empresa 
G. Guérin  Microinformática de gestión 
Alternativas y utilización 
A.P. Mullan El ordenador en la Educación Básica 
Problemática y metodología 
D. Daines Las bases de datos en la Educación Básica 


G.W. Orwig/W.S. Hodges 


Utilización y ejemplos 


Programas educacionales para su ordenador personal 


P. Pellier Lenguaje máquina del ZX Spectrum 
Subrutinas y trucos 
T. Hartnell Juegos dinámicos para el ZX Spectrum 
R.G. Hurley Los Micro Drives del ZX Spectrum 
Utilización y aplicaciones 
|. Sinclair Introducción al Commodore 64 
|, Sinclair Lenguaje máquina del Commodore 64 
S. Money Gráficos y sonidos para el Commodore 64 
O. Bishop Juegos para el Commodore 64 
B. Lloyd Introducción al Dragon 
D. Lawrence Programas prácticos para el Dragon 
K.S. Brain Gráficos y sonidos para el Dragon 
Incluye subrutinas en código máquina 
K.S. Brain Inteligencia artificial en el Dragon 
|. Sinclair Lenguaje máquina del Dragon 


M. James/S.M. Gee/K. Ewbank 


V. Apps 


Juegos para el Dragon 


40 juegos educacionales para el Dragon 


Colección «Su ordenador personal» 


Así se empieza 

Introducción a los ordenadores 

Peter Lafferty 

204 páginas, de 20 x 14 cm, con más de 100 ilustraciones a dos colores 


Indice. Introducción. 1 ¿Qué es un ordenador doméstico? 2 Cómo utilizar su ordenador. 3 
¿Qué puede hacer usted con un ordenador? 4 Cómo escribir sus propios programas. 5 Cómo 
funcionan los ordenadores. 6 Ampliación del sistema. 7 Elección del ordenador. 8 Hacia el 
futuro. Apéndice 1. Apéndice 2. Glosario de terminología de ordenadores. Resumen de orde- 
nadores. Bibliografía. Club de usuarios. Indice analítico. 


Primeros pasos en BASIC 
Susan Curran - Ray Curnow 
208 páginas, de 20 x 14 cm, con más de 60 ilustraciones a dos colores 


Indice. Introducción. 1 Cómo escribir en la pantalla. 2 Nuestros primeros programas. 3 Intro- 
ducción de variables. 4 Bucles y ramificaciones. 5 Edición y corrección de errores. 6 Cómo 
manejar los datos. 7 Cómo escribir programas más largos. 8 Los siguientes pasos. Apéndi- 
ce 1. Apéndice 2. Apéndice 3. Respuestas a las preguntas. Indice analítico. 


El estudiante y el ordenador 

Aplicaciones a la enseñanza 

Susan Curran - Ray Curnow 

168 páginas, de 20 x 14 cm, con más de 40 ilustraciones a dos colores 


Indice. Introducción. 1 El ordenador como una ayuda para aprender. 2 Ordenadores para los 
niños. 3 Programas de recursos. 4 Cómo comprar software. 5 Hardware para la educación. 6 
Algunos programas para que usted los pruebe. Apéndice 1. Apéndice 2. Bibliografía. Clubs de 
usuarios. Indice analítico. 


Juegos, imágenes y sonidos 

Susan Curran - Ray Curnow 

168 páginas, de 20 x 14 cm, con más de 50 ilustraciones a dos colores 

Indice. Introducción. 1 Resumen histórico de los juegos por ordenador. 2 Tipos de juegos para 
ordenador. 3 Gráficos por ordenador. 4 Generación de sonidos mediante su ordenador. 5 


Hardware del ordenador. 6 Cómo escribir programas de juegos. 7 Algunos programas que 
usted puede probar. 8. Compra de programas. Glosario. Indice analítico. 


Al incrementar la capacidad de su Spectrum con 
la adición de un Microdrive, necesita una guía com- 
pleta que le permita utilizar al máximo esta expan- 
sión. Para ello se describen con el máximo detalle las 
técnicas de manejo de archivos y proceso de datos, 
de forma que pueda escribir, leer y cambiar datos de 
manera eficaz. 

Ahora puede programar en su Spectrum una 
AGENDA ELECTRONICA con listado diario. Se 
incluye un listado completo de este programa, con el 
que puede introducir, variar y borrar todos los com- 
promisos del año, permitiéndole obtener una copia 
de los sucesos previstos para el día, cada mañana. 

Ahora tiene la posibilidad de hacer una red de 
Spectrums con los de sus amigos, multiplicando su 
capacidad en complejos juegos multiusuario. Se in- 
cluye una completa explicación con ejemplos para 
explotar este aspecto. 
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